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EXECUTIVE  SUMMARY 

During  the  last  several  years,  funding  highway  maintenance  operations 
has  become  increasingly  difficult.  The  outlay  required  to  maintaLn  the  high- 
way system  has  increased,  but  the  money  available  for  routine  maintenance 
has  not  kept  pace  with  the  need. 

An  effective  management  approach  is  essential  in  planning  and  controlling 
highway  activites,  particularly  in  an  era  of  limited  resources.  The  wide  use 
of  computers  has  greatly  contributed  to  the  development  of  maintenance 
management  systems.  A  large  amount  of  information  can  now  be  processed  to 
distill  the  necessary  information  for  the  highway  managers.   However,  most  of 
the  available  procedures  for  pursuing  maintenance  management  reports  are 
generally  too  detailed  and  complex  for  easy  and  ready  use  by  the  managers. 

In  this  study,  a  monitoring  procedure  was  developed  to  provide  Indiana 
Department  of  Highways  maintenance  managers  with  a  relatively  simple  and 
straight-forward  base  for  evaluating  and  improving  productivity  of  maintenance 
operations.   The  use  of  this  procedure  can  assist  maintenance  managers  in  im- 
proving the  productivity  of  their  operations.   Using  information  currently 
collected  by  IDOH,  a  computer  program  prepared  as  part  of  the  study  identifies 
subdistricts  with  unusually  high  or  low  average  cost.  Further  study  of  these 
subdistricts  should  reveal  the  reasons  for  their  deviations  in  resource  use. 
The  need  for  corrective  measures  can  be  identified,  or  unusually  efficient 
methods  may  be  identified  and  spread  throughout  the  state,  resulting  in  im- 
proved productivity. 


The  procedure  involves  calculation  of  average  cost  of  performing  a 
given  maintenance  activity  to  identify  "deviate"  subdistricts  (those  with 
very  high  or  low  costs),  analysis  of  labor  and  material  use  information,  review 
of  equipment  records,  and  field  observations  of  crews  at  work  in  order  to 
determine  the  reasons  for  the  deviate  cost.  Its  use  was  demonstrated  with 
two  activities,  crack  sealing  and  shallow  patching. 


CHAPTER  1 
INTRODUCTION 

During  the  last  several  years,  funding  highway  mainte- 
nance operations  has  become  increasingly  difficult.  The 
outlay  required  to  maintain  the  highway  system  has  increased 
due  to  inflation  plus  the  fact  that  the  facilities  are 
aging.  Furthermore,  although  the  amount  of  Federal  matching 
funds  has  increased  as  a  result  of  the  1982  Surface  Tran- 
sportation Assistance  Act,  no  Federal  money  is  available  for 
routine  maintenance.  In  order  to  make  use  of  the  available 
Federal  funds,  a  state  has  to  provide  an  increased  amount  of 
state  money,  thus  causing  a  serious  squeeze  on  state  funds 
that  are  necessary  for  routine  maintenance.  These  factors 
have  made  state  highway  officials  more  concerned  than  ever 
about  accountability  and  the  effective  use  of  the  resources 
at  their  disposal.  Heightened  citizen  awareness  of  highway 
costs  and  services,  and  rising  costs  along  with  tighter  con- 
straints on  allocation,  have  required  cutbacks  and  changes 
in  many  highway  programs.  In  general,  the  shifting  of  the 
fiscal  environment  surrounding  state  highway  programs  has 
made  programming  and  budgeting  a  more  critical  process.  In 
view  of  the  limited  funds  available,  it  is  clear  that 
increased  effort  must  be  directed  toward   using   maintenance 


resources   as   efficiently  as  possible.   To  accomplish  this, 

highway  managers   must   be   able   to   identify   areas  where 

resources   are   not   being   used   efficiently   as  well  as  to 
determine  corrective  measures. 


The  need  to  concentrate  efforts  on  the  highway  mainte- 
nance program  is  due  to  a  number  of  reasons.  First,  mainte- 
nance is  a  large  program  in  terms  of  both  manpower  and 
expenditures.  Second,  the  difficulty  in  recent  years,  of 
financing  the  maintenance  program  at  a  level  consistent  with 
needs,  has  created  a  growing  backlog  of  estimated  mainte- 
nance deficiencies.  Third,  the  maintenance  program  has  high 
public  visibility.  Fourth,  an  effective  maintenance  manage- 
ment program  can  greatly  improve  the  efficiency  of  the  pro- 
gram. 

An  effective  management  approach  is  essential  in  plan- 
ning and  controlling  highway  activities.  Efficiency  meas- 
ures are  useful  for  planning  and  control  on  most  managerial 
levels  of  an  organization.  Maintenance  management,  pavement 
management,  and  project  management  systems  are  being 
increasingly  used  by  highway  managers.  Much  information 
exists  in  the  area  of  pavement  management  systems.  Several 
states  have  already  implemented  or  are  in  the  process  of 
implementing  a  pavement  management  system.  Indiana  is  one 
of  the  states  that  are  currently  involved  in  the  development 
of  a  management  system  of  its  own.  A  pavement  management 
system   is   intended   to   provide   systematic   and  objective 


information  regarding  the  optimal  pavement  maintenance  stra- 
tegy on  a  project-by-project  basis.  These  projects  are  gen- 
erally of  major  maintenance  type  involving  capital  invest- 
ment. A  routine  maintenance  management  system,  on  the  other 
hand,  involves  all  forms  of  highway  routine  maintenance, 
including  pavement  [1,4,9,11].  A  routine  maintenance 
management  system  is  directed  at  the  overall  maintenance 
program,  and  it  involves  the  preparation  of  quality  and 
quantity  standards,  road  inventory,  maintenance  cost  model, 
performance,  budget,  and  feedback  reports.  The  purpose  of  a 
maintenance  management  system  is  to  contribute  to  the 
management  functions  of  identifying  total  work  backlog, 
ranking  it,  budgeting  and  updating  the  total  system  [9]. 


The  experience  gained  in  both  pavement  management  and 
routine  maintenance  management  systems  indicates  that  effi- 
cient maintenance  operations  depend  to  a  great  degree  on 
management  factors,  particularly  the  ability  of  the  first- 
and  second-line  supervisors  who  are  responsible  for  the 
planning  and  the  application  of  the  proper  mix  of  personnel, 
equipment,  materials  and  procedures  to  routine  task  and 
emergency  requirements  in  the  maintenance  program  [4]. 


The  wide  use  of  computers  has  greatly  contributed  to 
I  In*  ilo  vi*  I  op  mi*  ii  I  ol  in;  i  i  it  L  i-  nance  m.i  n;i  gemi'iil  syslenis.  A  In  «-)>«■ 
amount  of  information  can  now  be  processed  to  distill  the 
necessary  information  for  the  highway  managers.  However, 
many  of  the  available  procedures  for  pursuing  maintenance 
management  reports  are  generally  too  detailed  and  complex 
for  easy  and  ready  use  of  the  managers.  This  is  particularly 
true  for  the  Indiana  Department  of  Highways  (IDOrt).  A  need 
exists  to  identify  the  essential  level  of  information 
required  by  routine  maintenance  managers  and  to  develop  pro- 
cedures that  can  produce  the  necessary  information  in  forms 
useful  for  improved  control  of  routine  maintenance  activi- 
ties. 

Purpose  of  the  Study 


The  IDOH  has  an  excellent  system  of  maintenance  data 
collection  in  the  form  of  crew  day  cards.  However,  the 
reports  now  available  from  the  computer  compilation  of  these 
data  are  much  too  detailed  for  highway  managers  to  compare 
readily  the  productivity  of  various  maintenance  units  and 
identify  those  with  deviations,  high  or  low,  in  resource 
use.  The  purpose  of  this  study  is  to  develop  a  monitoring 
procedure  that  can  provide  the  necessary  management  informa- 
tion from  the  collected  data  in  a  systematic  manner  to  pro- 
vide a  base  for  evaluating  and  improving  productivity  of 
maintenance  operations. 


With  this  procedure,  maintenance  personnel  may  be 
alerted  to  areas  where  resources  are  not  being  used  effi- 
ciently or  to  areas  with  unusually  high  efficiency  in 
resource  use.  Investigation  of  these  areas  may  reveal  a 
need  for  corrective  action,  an  efficient  innovative  pro- 
cedure, or  important  factors  not  reflected  in  crew  day  card 
data.  This  can  lead  to  improved  productivity  by  correcting 
problems  as  well  as  disseminating  innovative  techniques 
developed  by  a  unit. 


Organization  of  the  Report 

The  report  consists  of  five  chapters  and  two  appen- 
dices. Chapter  2  is  a  discussion  of  maintenance  management 
systems  and  programming  in  general,  and  within  the  Indiana 
Department  of  Highways  in  particular.  Chapter  3  is  an 
analysis  ot"  the  distribution  of  IDOH  routine  maintenance 
expenditures  for  the  fiscal  year  1981-82.  The  distribution 
by  maintenance  activity,  by  IDOH  subdistrict,  and  the  rela- 
tions between  expenditure  and  factors  such  as  lane-miles  are 
examined.  Chapter  4  presents  the  procedure  to  be  used  to 
compare  and  evaluate  the  performance  of  routine  maintenance 
by  the  subdis t ricts .  The  computer  program  developed  in  the 
study  is  explained,  and  examples  of  the  use  of  the  procedure 
are  presented.  Chapter  5  contains  the  summary  and  recommen- 
dations of  the  study.  Appendix  A  is  the  user's  manual  for 
the  computer  program,  and  Appendix  B  is  the  listing  of  the 
computer  program. 


CHAPTER  2 

MAINTENANCE  MANAGEMENT  INFORMATION  SYSTEMS 

AND  PROGRAMMING 

The  overall  purpose  of  a  maintenance  management  infor- 
mation system  is  to  aid  a  highway  agency  in  achieving  its 
maintenance  program  goals  and  objectives. 

Typical  goals  of  a  highway  maintenance  program  include 
the  following  [11]: 

1.  Preserving  the  investment   in   roadways,   bridges,   and 
other  highway  components. 

2.  Achieving  the  necessary  expenditure  of  resources  in   an 
efficient  manner. 

3.  Optimizing  the  use  of  resources  by   avoiding   an   undue 
amount  of  idle  labor  and  equipment. 

A  specific  objective  may  be  to  reduce  a  routine  maintenance 
backlog  by  a  certain  percentage,  or  to  increase  the  amount 
of  preventative  maintenance  by  a  given  amount. 

A  maintenance  management  information  system  will  help 
to  achieve  these  goals  and  objectives  by  establishing  a  for- 
mal,  rational   method   for   estimating   maintenance   needs, 


determining  resources  required  to  meet  these  needs,  provid- 
ing a  means  to  schedule  efficiently  allocation  of  labor, 
equipment,  and  materials  throughout  the  year,  and  by  provid- 
ing feedback  reports  to  monitor  the  production  and  produc- 
tivity of  maintenance  forces  in  carrying  out  the  maintenance 
program.  • 

An  ideal  maintenance  management  information  system   may 
be  divided  into  seven  elements  [2,3,9,10]: 

1.  The  overall  maintenance  task  should  be  divided  into 
specific,  defined  activities.  Examples  of  individual 
activities  are  patching,  crack  sealing,  mowing,  bridge 
repair,  litter  pickup,  and  so  on. 

2.  A  maintenance  features  inventory  which  lists  the  physi- 
cal features  of  the  highway  requiring  maintenance. 
Examples  include  the  number  of  lane-miles  of  bituminous 
pavement,  miles  of  unpaved  ditch,  linear  feet  of  guar- 
drail, and  number  of  signs. 

3.  A  maintenance  needs  survey  which  is  used  to  estimate 
the  level  of  maintenance  needs. 


4.  A  performance  standard  for  each  defined  maintenance 
activity,  which  includes  criteria  for  determining  when 
that  activity  is  required,  the  acceptable  quality  of 
work,  the  standard  work  method,  expected  production 
rate,  and  required  resources. 


5.  Where  maintenance  needs  are  greater  than  available 
resources,  a  cost  model  may  be  used  to  determine  a 
priority  ranking  of  the  various  competing  needs. 

6.  A  scheduling  and  budgeting  mechanism  allows  the 
preparation  of  an  annual  work  program  based  on  effi- 
cient allocation  of  resources,  both  physically 
throughout  the  state,  and  temporally  throughout  the 
year. 

7.  Feedback  reports  allow  management  to  monitor  the  pro- 
gress of  maintenance  forces  in  achieving  the  work  pro- 
gram, to  compare  the  performance  of  various  maintenance 
districts,  and  to  check  the  accuracy  of  their  quantity 
standards.  Appropriate  reports  could  indicate  such 
things  as  the  use  of  improper  methods,  a  need  for 
training,  or  the  improper  scheduling  of  activities  and 
allocation  of  resources. 


Productivity  Considerations 

In  order  to  manage  effectively  and  efficiently  a  high- 
way routine  maintenance  program,  managers  must  be  able  to 
monitor  the  productivity  or  the  performance  of  maintenance 
forces.  By  monitoring  and  comparing  the  productivity  of 
various  maintenance  districts,  maintenance  managers  will  be 
able  to  identify  areas  where  resources  are  not  being  used 
efficiently,  and  will  be  guided  to  investigate  further  and 
take    corrective   measures.    On   the   other   hand,   highly 


efficient   work   methods   may    also    be    identified    and 
transferred  to  other  areas  of  the  state. 

Productivity  can  be  represented  by  two  broad  measures: 
efficiency  and  effectiveness.  Efficiency  refers  to  how  much 
work  is  produced  with  the  given  resources  of  labor,  materi- 
als, and  equipment.  Effectiveness  refers  to  how  well  the 
work  accomplishes  its  objectives.  In  the  case  of  the 
maintenance  program,  effectiveness  refers  to  how  well  the 
program  achieves  its  overall  goals  such  as  preserving  the 
investment  in  the  physical  highway  system  and  providing  safe 
and  efficient  travel  to  system  users.  For  a  specific 
maintenance  activity,  effectiveness  may  refer  to  the  quality 
of  work  performed. 

To  provide  a  meaningful  measure  of  routine  maintenance 
productivity,  both  efficiency  and  effectiveness  must  be  con- 
sidered. An  efficient  maintenance  operation  is  not  desir- 
able if  it  is  not  effective,  and  an  effective  operation 
should  be  as  efficient  as  possible. 

Efficiency  Measures 

Efficiency  may  be  measured  in  terms  of  a  resource  used 
per  production  unit  or  cost  per  production  unit  for  a  given 
maintenance  activity.  The  number  of  manhours  per  production 
unit  is  one  such  measure.  This  would  be  suitable  for 
maintenance  activities  which  are  measured  in  units  other 
than   manhours,   such   as  shallow  patching,  where  efficiency 


10 


could  be  measured  in  manhours  per  ton  of  bituminous  mixture 
placed.  However,  the  production  unit  of  many  activities  may 
be  manhours,  such  as  the  case  with  brush  cutting  and  sign 
maintenance.  For  these  activities,  an  alternative  effi- 
ciency measure  would  be  necessary. 

An  alternative  to  manhours  per  production  unit  would  be 
the  amount  of  a  given  material  per  production  unit.  For 
example,  the  amount  of  herbicides  used  per  manhour  of  herbi- 
cide treatment.  However,  a  problem  may  arise  in  deciding 
which  particular  material  to  include  in  the  efficiency  meas- 
ure when  an  activity  involves  the  use  of  several  materials. 
Furthermore,  with  many  activities,  the  same  mix  of  materials 
is  not  always  used.  If  the  material  chosen  as  an  efficiency 
measure  is  not  always  used,  the  usefulness  of  the  measure  is 
diminished. 


A  preferred  approach  to  measuring  efficiency  is  to  cal- 
culate the  average  cost  per  production  unit  for  an  activity. 
This  approach  weights  each  component  involved  in  performing 
maintenance,  labor,  materials,  and  equipment,  with  its  unit 
cost.  Poister,  et  al.  state  that  cost  per  production  unit 
is  the  most  direct  measure  of  efficiency,  disregarding  the 
quality  of  work  [12].  However,  the  quality  of  the  mainte- 
nance work  should  also  be  considered.  In  a  study  of  routine 
maintenance  in  the  Pennsylvania  Department  of  Transporta- 
tion, an  inverse  relation  between  efficiency  and  quality  of 
work  was  found  [12] . 
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Quality  Measures 

In  1970,  the  Ohio  Department  of  Transportation 
developed  a  system  to  measure  the  quality  of  routine  highway 
maintenance.  The  three  goals  of  the  system  were  "to  measure 
objectively  the  quality  of  maintenance  achieved  by  highway 
maintenance  forces,  to  establish  acceptable  standards  of 
maintenance  quality,  and  to  provide  a  means  of  setting 
annual  district  and  statewide  maintenance  performance  objec- 
tives" [11]. 


The  system  involves  inspections  of  randomly  selected 
sections  of  highways  throughout  the  state.  A  two-man  crew 
inspects  each  section  and  counts  the  number  of  identifiable 
items  requiring  maintenance  work.  These  data  are  converted 
to  average  numbers  of  work  items  per  mile  for  each  work 
category  in  each  county.  The  numbers  of  "recordable  condi- 
tions" per  mile  are  plotted  on  bar  charts  along  with  the 
maintenance  expenditure  per  lane-mile  for  the  various  work 
categories  and  counties.  The  charts  are  used  by  management 
at  several  levels  for  control  of  the  maintenance  program. 

Fifteen  recordable  conditions  which  affect  the  physical 
integrity,  safety,  rideability,  or  aesthetics  of  the  highway 
were  defined  objectively.  For  example,  a  shoulder  drop-off 
of  two  inches  or  more  which  continues  for  more  than  six  feet 
but  less  than  100  feet  is  one  unit  of  the  recordable 
condition  "shoulder  drop-off"  [11]. 
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Plots  of  recordable  conditions  per  mile  and  expenditure 
per  lane-mile  have  indicated  that  counties  with  higher 
expenditures  tend  to  have  fewer  reportable  conditions. 
These  plots  can  be  used  by  a  district  maintenance  manager  to 
monitor  the  performance  of  the  county  maintenance  forces  in 
his  district,  to  monitor  the  change  in  maintenance  effec- 
tiveness over  time,  to  help  a  county  supervisor  plan  work, 
better,  to  acquaint  him  with  a  better  method  another  county 
may  be  using,  or  to  recognize  the  supervisor  whose  county 
has  the  fewest  number  of  reportable  conditions,  thereby 
creating  a  sense  of  competition  among  the  counties  [11]. 

The  Pennsylvania  Department  of  Transportation  has 
developed  a  Trained  Observer  System  (TOS)  patterned  after 
the  Ohio  system  to  survey  objectively  the  condition  of  high- 
ways with  respect  to  physical  and  service  features  [12],  As 
in  Ohio,  randomly-selected  highway  segments  are  inspected, 
and  the  numbers  of  objectively-defined  "reportable  condi- 
tions" in  various  roadway  elements  are  recorded.  The  TOS  is 
intended  to  meet  two  goals.  First,  to  improve  the  basis  for 
allocation  of  maintenance  funds  by  indicating  where  the 
greatest  needs  are,  and  second,  to  provide  a  mechanism  for 
evaluating  the  overall  effectiveness  of  the  maintenance  pro- 
gram [  12]  . 


A  follow-up  study  was  conducted  in  Pennsylvania  to 
determine  the  relation  between  highway  conditions  measured 
by  the  TOS  and  the  maintenance  needs  as  determined  by  county 
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maintenance  managers.  The  study  was  to  determine,  the 
extent  to  which  "production  units  or  the  dollar  cost  of 
maintenance  work.  estimated  for  individual  road  sections 
[can]  be  explained  by  the  counts  of  TOS  reportable  condi- 
tions on  those  sections"  [14].  The  study  took  survey  sec- 
tions from  a  recent  TOS  survey  and  had  assistant  county 
maintenance  managers  inspect  the  same  sections  and  record 
the  required  maintenance.  Estimated  costs  for  the  recom- 
mended maintenance  work  were  calculated  and  correlated  with 
TOS-reported  conditions. 

A  surprising  lack  of  correlation  was  found.  The  study 
discovered  that  rarely  were  specific  maintenance  actions 
consistently  recommended  in  response  to  specific  reportable 
conditions.  Rather,  "maintenance  applications  seem[ed]  to 
be  sporadic,  perhaps  more  dependent  upon  the  total  mix  of 
conditions  on  a  given  roadway  and  the  resources  available 
within  each  county"  [14], 


Several  explanations  were  offered  to  explain  this  lack 
of  correlation.  There  were  reliability  problems  within  the 
TOS  with  TOS  teams  missing  a  significant  number  of  report- 
able conditions.  Some  definitions  of  TOS  reportable  condi- 
tions proved  inadequate  or  inappropriate  with  respect  to 
maintenance,  with  TOS  observers  counting  conditions  to  which 
routine  maintenance  forces  would  not  respond,  such  as  rut- 
ting in  wheel  paths  [14].  TOS  observers  would  count  each 
occurrence  of  a  reportable   condition   within   its   1/4-mile 
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section,  while  the  recommendation  of  maintenance  managers 
would  depend  upon  the  concentration  of  the  defect,  the  con- 
dition of  the  roadway  on  each  side  of  the  section,  and  the 
volume  and  class  of  traffic  using  the  road. 

There  is  a  basic  difference  in  the  TOS  survey  and 
assessment  by  maintenance  managers.  TOS  teams  just  record 
the  defects  seen  in  the  highway,  while  maintenance  managers 
also  consider  prevalence  of  the  defect,  the  probable  cause, 
the  overall  condition  of  the  road,  and  the  resources  the 
county  has.  Thus,  the  recommended  maintenance  would  not 
necessarily  be  expected  to  correspond  closely  with  the 
"need"  as  evidenced  by  the  TOS  counts  [14],  However,  the 
gathering  of  data  for  this  study  was  not  strictly  con- 
trolled, and  it  is  not  possible  to  conclude  that  there  is  no 
relation  between  TOS  conditions  and  maintenance  needs  [14], 


The  quality  of  maintenance  must  be  considered  in  an 
evaluation  of  routine  maintenance  productivity.  A  low  unit 
cost  for  maintenance  is  not  desirable  if  the  reason  for  the 
low  cost  is  a  low  level  of  quality  in  the  work. 

The  Indiana  Department  of  Highways  does  not  have  a  for- 
mal comprehensive  survey  of  the  condition  of  its  highways. 
Without  a  measure  of  this  key  element,  it  is  difficult  to 
monitor  and  to  evaluate  properly  productivity  of  maintenance 
forces.  Implementation  of  a  survey  such  as  those  in  Ohio 
and  Pennsylvania  could  provide  this  key  missing  information, 
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but  in  view  of  current  staff  and  budget  limitations,  such   a 
survey  cannot  be  implemented. 

An  alternative  for  a  comprehensive  quality  survey  is  to 
make  spot  checks  of  work  quality  in  subdistricts  that  have 
been  singled  out  for  individual  study.  An  efficiency 
analysis  on  the  basis  of  cost  can  be  used  to  identify  sub- 
districts  with  unusually  high  and  low  costs,  and  then  these 
subdistricts  can  be  singled  out  for  specific  study  of  work 
quality . 

Maintenance  Programming  In  The  IDOH 

The  'Indiana  Department  of  Highways  Division  of  Mainte- 
nance has  three  levels  of  management  involved  in  programming 
routine  maintenance:  the  Central  Office,  the  District,  and 
the  Subdistrict.  The  IDOH  is  divided  into  six  districts, 
with  each  district  divided  into  six,  or  in  one  case  seven, 
subdistricts.  Each  subdistrict  foreman  is  responsible  for 
three  or  four  units  to  which  crews  and  equipment  are 
assigned.  It  is  the  unit  personnel  who  actually  perform  the 
physical  work  on  the  highway  system. 

The  IDOH  has  developed  a  maintenance  management  infor- 
mation system  for  the  programming,  scheduling,  and  monitor- 
ing of  routine  maintenance  operations.  Individual  activi- 
ties have  been  defined  and  performance  standards  prepared. 
Figure  2.1  is  an  example  of  a  performance  standard. 
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A  maintenance  feature  inventory  was  conducted  for  the 
entire  highway  system.  For  each  routine  maintenance 
activity,  there  are  physical  elements  of  the  roadway  on 
which  that  activity  is  performed.  For  example,  the  physical 
features  that  require  shallow  patching  are  lane-miles  of  low 
bituminous  pavement,  high  bituminous  pavement,  bituminous 
over  concrete  pavement,  and  paved  shoulder  [7,8].  A  low 
bituminous  pavement  refers  to  a  highway  that  evolved  through 
the  years,  such  as  a  local  path  used  by  farmers  that  was 
gradually  upgraded  to  a  paved  surface,  and  became  a  state 
highway.  A  high  bituminous  pavement  refers  to  a  highway 
that  was  formally  planned,  designed,  and  constructed  as  a 
state  highway.  The  physical  feature  associated  with  joint 
and  bump  burning  is  the  number  of  bituminous  over  concrete 
lane-miles,  and  the  feature  associated  with  cleaning  and 
reshaping  ditches  is  the  number  of  miles  of  unpaved  ditch 
[7,8]. 

The  programming  process  begins  with  the  subdistrict 
foremen  who  estimate  their  needs  for  each  maintenance 
activity  in  the  next  fiscal  year.  This  is  based  on  a  combi- 
nation of  foremen's  visual  inspection  during  the  course  of 
their  daily  work,  and  records  of  work  performed  in  the  pre- 
vious year. 


Several  months  before  the  start  of  the  fiscal  year, 
central  office  and  district  personnel  visit  with  each 
subdis t ri ct  '  s  personnel  to  discuss   their   estimated   needs. 


INDIANA     DEPARTMENT     OF   HIGHWAYS 
DIVISION  OF  MAINTENANCE 
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PERFORMANCE   STANDARD 


ACTIVITY 


Seoling  Crocks 


CODE 


207   PM 


DESCRIPTION    ANO    PURPOSE 


Cleaning  and  seofing  open  crock*  and  joints  In  bituminous  and 
concrete  roadway*  and  paved  shoulder  wrhaj)  to  prevent  fhe  entry  of  moisture  and  debrii  which  leads  to 
surface  and  base  failure.    This  activity  also  includes  sealing  short  sections  or  isolated  oreas  of  alligatored, 
raveled,  or  spoiled  bituminous  surfaces  to  prevent  entry  of  moisture  and  further  deterioration  of  the  surface. 


AUTHORIZED  BY 


Subdatncr 


WORK  CONTROL  CATEGORY 


Limited 


SCHEDULING 


Perform  on  oreas  where  there  is  loss  of  seal  or  crocking  or  the  joint  filler  if 


broken,  brittle  or  missing  and  allowing  entry  of  water  and  foreign  material,.   This  work  should  be 
scheduled  in  the  cooler  months  when  contraction  hot  opened  the  crock  or  joint.  Do  not  cover 
painted  lines  or  messages  without  prior  approval  of  District  Traffic. 


v: 


f   CREW  SIZE 


MEN 


WORK    ASSIGNMENT  QTY. 

Supervisor  1 

Flagman  2 

Pickup  or  Tractor  Operator  * 

Air  Compressor  Operator  1 

Tar  Kettle  Spray  Operator  1 

Laborer  2 

Truck  Driver/Laborer  2 


EQUIPMENT 


OTY. 


Pickup  or  Tractor/Air  Compressor  I 

Pickup  or  Trader/Tar  Kettle  1 

Dump  Truck  2 

Pickup  Truck  1 

Pickup/Crew  Cob  1 


MATERIALS 


Bituminous  Moteriol 
Conor  Aggregate 


AVERAGE  DAILY 
PRODUCTION 


2-4  Une  Miles 


FORM   NO.    MM-309(M) 


WORK   METHOD 


I .  Place  signs  and  other  safety  devices. 

*2.  Clean  crock  as  required. 

3.  Apply  bituminous  niterltl  to  cracks. 

4.  Squeegee  moteriol  to  force  into  crocks  and 
surface  voids.    . 

5.  Remove  any  surplus  material. 

A.  Dust  the  area  Jighrly  with  cover  aggregate, 

7.  Remove  signs  and  safety  devices. 


When  routing  of  the  joint  or  crock  on  concrete 
surfaces  is  required  before  sealing,  see  Activity 
219,  Other  Roadway  and  Shoulder  Moinhmance. 


APPROVED     BY! 

CHIEF,    DIVISION    OF   J/AUfTENANCE 


CHIEF,    DIVISION    OF    S/AipTENANCE 
DEP8TT     OIRECTOnyrGlGHWAT   OPERATIONS 


EFFECTIVE  DATE     JULY    I,    t982 ) 


Figure  2.1.      Example  of  a  Performance   Standard 


18 


From  the  estimated  need,  a  quantity  standard  (QS)  is  deter- 
mined for  each  activity  in  each  subdistrict.  A  QS  is  the 
amount  of  a  given  activity  required  per  inventory  unit  for 
that  activity  in  a  particular  subdistrict.  For  example, 
activity  214,  joint  and  bump  burning,  is  correlated  with  the 
inventory  feature  of  lane-miles  of  bituminous  over  concrete 
pavement,  while  its  unit  of  measure  is  number  of  bumps 
removed.  Thus,  its  QS  would  estimate  the  number  of  bumps 
removed  per  lane-mile  of  bituminous  over  concrete  pavement 
in  a  subdistrict. 

The  quantity  standards  for  each  activity  in  each  sub- 
district  are  used  along  with  the  physical  feature  inventory 
and  resource  costs  to  determine  the  annual  work  quantity  of 
each  activity  for  the  fiscal  year.  This  program  is  then 
reviewed  by  maintenance  managers  to  determine  if  it  is 
acceptable  with  respect  to  the  amount  and  type  of  work  the 
subdistricts  want  to  program.  It  is  also  checked  to  insure 
that  the  estimated  resource  needs  are  not  greater  than  the 
available  resources.  If  the  program  is  not  acceptable,  more 
visits  are  made  to  the  subdistricts,  and  estimated  needs  are 
revised  so  that  the  amount  and  type  of  work  programmed  is 
acceptable  to  both  subdistrict  and  central  office  managers, 
and  that  required  resources  are  not  greater  than  those 
available.  This  is  an  iterative  process,  and  several  cycles 
may  be  required  before  a  balance  is  achieved  between 
estimated  needs  and  available  resources. 
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Once  the  annual  work,  quantity  for  each  activity  in  each 
subdistrict  has  been  determined,  it  is  divided  by  the  aver- 
age daily  production  to  determine  the  number  of  planned  crew 
days  for  each  activity  planned.  These  figures  are  multi- 
plied by  the  standard  crew  sizes  to  determine  the  number  of 
man  days  required.  Then  the  work  calendar  is  determined  by 
distributing  the  work  load  so  as  to  keep  the  permanent  work 
force  busy  throughout  the  year.  Equipment  and  material 
schedules  are  then  compiled.  From  estimated  monthly 
material  needs,  ordering  deadlines  and  cost  schedules  are 
established  which  assist  the  district  and  subdistrict  per- 
sonnel in  scheduling  and  purchasing  materials. 

Also  from  the  work  calendar,  one  crew  day  card  is 
printed  for  each  crew  day  of  work  planned  for  each  activity. 
A  crew  day  card  authorizes  one  day's  work  on  an  activity  and 
is  used  to  assign-men  and  equipment  to  that  activity,  and  to 
report  the  amount  of  work  done  that  day.  Information 
recorded  on  a  crew  day  card  includes: 

1.  Activity  number  and  name. 

2.  Management  unit  (subdistrict)  number  and  name. 

3.  Road  class  (Interstate  or  Other  State  Highway). 
4  .  Date . 


5.   Location  of  work. 
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6.   Crew  size  and  corresponding  labor  hours 


7.   Equipment  used  and  amount  of  use  in  miles  or  hours 


8.   Materials  and  amounts  used. 


9.   Total  accomplishment  (production  unit). 


Figure  2.2  is  an  example  of  a  crew  day  card 


With  the  exception  of  equipment  use,  the  information 
from  the  crew  day  card  is  coded  and  recorded  on  magnetic 
tape,  and  periodic  reports  are  issued  comparing  factors  such 
as  actual  to  planned  work  accomplished,  standard  to  actual 
crew  size,  and  standard  to  actual  labor  productivity.  How- 
ever, these  reports  are  very  detailed,  and  there  is  no  rela- 
tively easy  way  to  compare  the  performance  of  the  subdis- 
tricts. 
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CHAPTER  3 
DISTRIBUTION  OF  MAINTENANCE  EXPENDITURES 

Using  crew  day  card  records  for  the  fiscal  year  ending 
in  June  1982,  the  distribution  of  maintenance  expenditures 
by  roadway  class  and  maintenance  activity  type,  and  by  sub- 
district  was  determined.  This  analysis  was  conducted  in 
order  to  determine  the  portion  of  the  total  maintenance 
expenditure  due  to  each  activity,  and  guide  more  detailed 
analysis  to  the  activities  which  have  the  largest  share  of 
the  maintenance  program. 

An  analysis  was  also  made  of  the  relation  between 
maintenance  expenditures  and  the  highway  system  physical 
inventory  in  order  to  identify  contributing  factors  that  can 
account  for  the  variation  in  expenditures  and  productivity. 

The  IDOH  maintenance'  management  information  system 
identifies  sixty-three  maintenance  activities  in  eight  broad 
categories:  roadway  and  shoulder,  roadside,  drainage, 
bridge,  traffic,  winter  and  emergency,  service,  and  other. 
Fifty-seven  of  these  activities  were  included  in  the  study 
and  are  listed  in  Table  3.1.  It  should  be  noted  that  snow 
and  ice  removal  is  not  included  in  this  analysis,  as  this 
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activity  does  not  follow  any  trend,  and  it  depends  entirely 
on  weather.  Since  the  crew  day  card  records  include  only 
labor  and  material  used,  equipment  depreciation  and  fuel 
costs  are  not  considered.  Along  with  the  crew  day  card 
data,  information  on  hourly  wage  rates  and  average  unit 
material  costs  for  the  various  activities  was  used  to 
generate  the  expenditure  data.  Table  3.2  lists  the  hourly 
wage  rates  used  for  each  activity,  and  Table  3.3  lists  the 
unit  material  costs. 

Maintenance  Expenditure  By  Roadway  Class  and  Activity  Type 

Table  3.4  presents  a  breakdown  of  routine  maintenance 
expenditure  by  activity  type  and  roadway  class. 
Approximately  $24.9  million  was  spent  in  fiscal  year  19  81— 
82,  with  11.5  percent  going  to  the  Interstate  system  and 
88.5  percent  to  the  Other  State  Highways.  Roadway  and 
shoulder  activities  account  for  the  highest  share  of 
maintenance  costs  at  38  percent,  with  traffic  activities 
second  at  25  percent.  Roadside  activities  were  third  at 
just  over  10  percent,  and  drainage  activities  fourth  at  just 
under  10  percent. 

An  analysis  of  expenditure  types  by  individual  activity 
reveals  that  activity  201,  shallow  patching,  was  the  largest 
single  activity  at  31.5  percent  of  roadway  items,  and  12.1 
percent  of  total  reported  maintenance  expenditure.  Activity 
256,  painting  edgelines,  placed  second  at  37.7  percent  of 


Table  3.2.   Hourly  Wage  Rates  for  Activities  in  Study 
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ACTIVITY 

AVERAGE  LABOR 

ACTIVITY 

AVERAGE  LABOR 

NUMBER(2) 

WAGE  ($/HR) 

NUMBER(2) 

WAGE  ($/HR) 

201 

5.81 

241 

5.91(3) 

202 

5.97 

243 

5.99 

203 

6.04 

244 

5.91(3) 

205 

6.21(3) 

249 

5.91(3) 

206 

6.22 

251 

6.09 

207 

5.81 

252 

6.09(3) 

209 

6.07 

253 

6.09(3) 

210 

5.81 

254 

6.09(3) 

211 

5.95 

255 

6.09(3) 

212 

6.16 

256 

6.09(3) 

213 

6.09 

257 

6.00 

214 

6.01 

258 

5.88 

219 

5.85 

259 

5.92 

221 

5.88 

261 

6.09 

222 

5.99 

265 

5.76 

223 

5.95 

266 

5.76(3) 

224 

5.95 

269 

5.84 

225 

6.13 

272 

5.67 

226 

5.95 

273 

5.89(3) 

227 

5.95 

274 

5.89 

228 

5.88 

275 

5.67 

229 

5.92 

276 

5.67 

231 

5.97 

277 

5.88 

232 

6.09 

279 

5.67 

233 

5.97 

284 

5.95 

234 

6.11 

287 

6.10 

235 

5.97 

289 

6.09 

239 

5.88 

1  —  Source:  Reference  13. 

2  —  Refer  to  Table  3.1  for  Activity  Names 

3  —  Value  not  reported  in  Reference  13.   Wage  rate  is 

assumed  based  on  similar  activities. 
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Table  3.3.   Selected  Average  Material  Costs 


CODE 

UNIT  COST 

NUMBER 

DESCRIPTION 

($) 

UNIT 

4061 

Fuel  Oil 

1.05 

Gallon 

4121 

Grass  Seed 

0.85 

Pound 

4122 

Fertilizer 

0.07 

Pound 

4221 

Culvert  Pipe 

14.00 

Linear 

Foot 

4222 

Underdrain  Pipe 

14.00 

Linear 

Foot 

4241 

Bridge  Paint 

12.00 

Gallon 

4242 

Primer 

10.00 

Gallon 

4244 

Yellow  Quick  Dry  Paint 

4.52 

Gallon 

4245 

Glass  Beads 

0.21 

Pound 

.  4247 

Solvent 

1.65 

Gallon 

4248   ' 

Greenlite  Powder 

1.32 

Pound 

4251 

Aggregate 

4.10 

Ton 

4252 

Seal/Cover  Aggregate 

3.00 

Ton 

4253 

Rip  Rap 

4.32 

Ton 

4254 

Silica  Sand 

65.00 

Ton 

4371 

Herbicides 

22.00 

Gallon 

4372 

Dry  Herbicides 

1.14 

Pound 

4401 

Preformed  Joint  Filler 

3.14 

Linear 

Foot 

4411 

Guardrail 

6.67 

Linear 

Foot 

4421 

Fence 

1.16 

Linear 

Foot 

4431 

Bituminous  Material 

0.78 

Gallon 

4441 

Bituminous  Mixture,  Hot 

25.50 

Ton 

4442 

Bituminous  Mixture,  Cold 

25.50 

Ton 

4451 

Readymix  Concrete 

39.35 

Cubic  Yard 

4452 

Cement 

4.50 

Bag 

4453 

Sacrete 

0.51 

Pound 

4461 

Signs 

18.00 

Each 

4462 

Sign  Posts 

7.80 

Each 

4463 

Delineators 

0.29 

Each 

4464 

Delineator  Posts 

3.00 

Each 

4486 

White  Quick  Dry  Paint 

4.02 

Gallon 

4501 

Salt 

28.00 

Ton 

4511 

Calcium  Chloride 

0.07 

Pound 

4521 

Abrasives 

2.40 

Ton 

1  —  Source:  Reference  5. 
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Table    3.5.       1981-82    Expenditures    for    Roadway    &    Shoulder 
and    Traffic    Activities     (Dollars) 


ACT 

INTERSTATE 

OTHER  ST  HWY 

TOTAL 

%  TOTAL  EXP 

Roadwa 

y  &  Shoulder 

201 

248,668 

2,757,152 

3,005,820 

12.1 

202 

63,628 

426,254 

489,883 

2.0 

203 

27,798 

371,294 

399,092 

1.6 

204 

393,455 

443,255 

836,711 

3.4 

205 

0 

1,131,675 

1,131,675 

4.5 

206 

79,466 

246,402 

325,868 

1.3 

207 

114,387 

1,498,794 

1,613,181 

6.5 

209 

15,911 

89,570 

105,481 

0.4 

210 

14,042 

612,339 

626,381 

2.5 

211 

23,966 

168,619 

192,584 

0.8 

212 

22,139 

277,584 

299,723 

1.2 

213 

0 

87,541 

87,541 

0.4 

214 

10,207 

166,690 

176,896 

0.7 

219 

35,051 

213,432 

248,483 

1.0 

Traff i 

.c 

251 

134,535 

1,102,521 

1,237,056 

5.0 

252 

53,782 

38,076 

91,858 

0.4 

253 

38,383 

653,081 

691,463 

2.8 

254 

0 

0 

0 

0.0 

255 

81,407 

1,009,092 

1,090,499 

4.4 

256 

361,483 

2,027,036 

2,388,519 

9.6 

257 

32,921 

370,237 

403,158 

1.6 

258 

125,111 

170,724 

295,835 

1.2 

259 

13,136 

118,023 

131,160 

0.5 
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traffic  items  and  9.6  percent  overall.  Ranked  third  overall 
was  activity  207,  sealing  cracks,  at  6.5  percent  of  total 
expenditure,  followed  by  activity  251,  subdistrict  sign 
maintenance,  at  5.0  percent.  Table  3.5  presents  the  total 
breakdown  by  activity  for  roadway  and  traffic  items. 

Maintenance  Expenditure  by  Subdistrict  and  Activity  Type 

Since  this  study  is  primarily  concerned  with  providing 
a  method  for  comparing  subdis tricts ,  an  analysis  of 
expenditure  by  subdistrict  was  conducted.  In  order  to 
compare  each  subdistrict  on  a  comparable  basis,  maintenance 
expenditure  was  plotted  against  lane-miles  for  each 
subdistrict.  In  general,  one  would  expect  the  subdistricts 
with  more  roadways  to  require  more  maintenance  activity. 
Figures  3.1,  3.2,  and  3.3  show  total  expenditure  vs.  lane- 
miles  for  the  Interstate,  Other  State  Highway,  and  Total 
highway  systems,  respectively.  The  expenditure  data  in  this 
analysis  do  not  include  activities  that  are  performed  by 
district-wide  crews.  These  activities  are  district  sign 
maintenance,  district  sign  replacement,  district  signal 
maintenance,  painting  centerlines,  painting  edgelines,  and 
portions  of  special  markings /paint ing  pavement  messages  and 
other  traffic  control. 

While  there  is  a  considerable  variation,  in  general, 
the  subdistricts  with  higher  lane-miles  spent  more  money  on 
maintenance.   A  linear  regression  analysis  was  conducted  for 
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2 
each    of    the    cases.      The    Interstate    case    yielded    a       r         value 

2 
of       0.85,       while    the    Other    State    Highway    case    had    a    r       value 

2 
of    0.41,    and    the    Total    system    case    had    a    r      value    of    0.41. 


In  addition  to  considering  total  expenditure, 
expenditure  for  each  activity  class  was  plotted  against  an 
appropriate  physical  feature.  Roadside  expenditures  were 
plotted  against  the  number  of  right-of-way  pass-miles,  (A 
pass-mile  is  one  pass  along  the  right-of-way  for  a  distance 
of  one  mile.)  while  'expenditures  for  drainage  activities 
were  plotted  against  the  number  of  road-miles,  and  bridge 
expenditures  were  plotted  versus  number  of  bridges. 
Expenditures  for  the  other  activity  types  were  plotted 
against    lane-miles. 

Figure  3.4  shows  expenditure  for  roadway  and  shoulder 
activities  versus  lane-miles  for  the  total  highway  system. 
Again,    in    general,       expenditure      increases      with       increasing 

numbers       of       lane-miles,       but       a       linear    regression    analysis 

2 
yielded    a    r      value    of     .15    for    the    Total      system,       indicating 

that  the         total       expenditure       for       roadway       and       shoulder 

activities    cannot    be    predicted    on    the    basis    of    lane-miles. 

2 
Table    3.6    summarizes     the    r         values       obtained      for       the 

various       activity       types       and       roadway       classes.  With       the 

2 
exception    of    roadway    and    shoulder    activities,     the    r         values 

for       the       Interstate      system      are      higher    than    those    for    the 

Other    State    Highway    system.       This    result     is    not    surprising 
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2 
Table  3.6.   R   Values  for  1981-82  Expenditures 


R 

SQUARED 

ACTIVITY 
CLASS 

INDEPENDENT 
VARIABLE 

INT 

OSH 

TOT 

Rdwy  &  Shldr 

Lane-miles 

.43 

.44 

.15 

Roadside 

ROW  Pass-miles 

.34 

.13 

.11 

Drainage 

Road-miles 

.61 

.30 

.16 

Bridge 

Bridges 

.86 

.30 

.16 

Traffic 

Lane-mi les 

.79 

.00 

.15 

Winter  &  Emgy 

Lane-miles 

.75 

.04 

.11 

Service 

Lane-miles 

.85 

.04 

.05 

Other 

Lane-miles 

.39 

.00 

.03 

Total 

Lane-miles 

.85 

.41 

.41 

INT  —  Interstate 

OSH  —  Other  State  Highways 

TOT  —  Total  Highway  System 
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considering  the  differences  in  the  two  systems.  The 
Interstate  system  is  homogeneous  in  terms  of  the  type  of 
highway  facility.  All  interstates  are,  by  definition,  grade 
separated,  high-speed,  multilane  highways.  The  Other  State 
Highway  system  is  heterogeneous,  consisting  of  all  state 
highways  other  than  Interstates.  Everything  from  a 
multilane  divided  freeway,  to  a  rural  two-lane  highway,  to 
an  urban  street  can  be  found  in  the  Other  State  Highway 
system.  Maintenance  requirements  would  be  expected  to  be 
relatively  similar  throughout  a  homogeneous  group,  such  as 
the  Interstate  system.  On  the  other  hand,  requirements 
would  be  expected  to  vary  widely  throughout  the 
heterogeneous  Other  State  Highway  system,  depending  on  the 
particular  type  of  highway  being  considered.  It  is  also 
reasonable  to  expect  that  heavily  travelled  highways  require 
more  maintenance  than  those  with  low  traffic  volumes.  In 
general,  Interstate  highways  are  heavily  travelled,  while 
highways  in  the  Other  State  Highway  system  range  from  high 
to  low  traffic  volumes.  Thus,  it  is  reasonable  that 
maintenance  expenditure  could  be  better  predicted  on  the 
basis  of  total  lane-miles  for  the  Interstate  system,  than 
for  the  Other  State  Highway  system. 


Examining  the   values   for   each   activity   class,  all 

Interstate  activities  have  relatively  high  values  except  for 

roadside,  and  other.   The  roadside  class  consists  mainly  of 

grass   and   weed  cutting,  brush  clearing,  tree  trimming,  and 
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so  on.  Perhaps  these  activities  have  a  lower  priority  than 
the  others,  which  have  a  more  pronounced  effect  on  the 
highway  user,  such  as  roadway,  bridge,  drainage,  and  traffic 
activities.  Thus,  the  more  important  activities  items  may 
be  taken  care  of  first,  with  the  amount  of  roadside  work 
depending  on  the  time  and  resources  remaining.  The  "other" 
activity  class  includes  items  such  as  materials  handling  and 
detour  maintenance.  Items  such  as  detour  maintenance  would 
not  be  expected  to  be  related  to  lane-miles,  since  it 
depends    on    construction    work    in    progress. 

Considering    the    Other       State      Highway       category,       three 

activity       types      have       relatively      high      values,     roadway    and 

2 
shoulder,    drainage,    and    bridge,    while       the      others      have      r 

values       near      zero.         This      may      indicate      that    all    highways 

require    at    least    some    maintenance    for    the      major       categories 

of    pavement     (roadway),     drainage,     and    bridges,    while    need    for 

the       other      activities       varies       more      widely       due         to         the 

heterogeneous       character      of       the      OSH    system.       For    example, 

rural    two-lane    highways    and    urban    streets    with    narrow    or      no 

grassy      rights-of-way      would      require       little    or    no    roadside 

mowing    and    litter    pickup,       activities       that       fall       into       the 

roadside      and      service       categories.         Normally,       the    traffic 

2 
category    would    be    expected    to    have    a    higher      r    ,       since      all 

roadways       must      have    painted    center    and    edgelines.       However, 

these    activities    are    performed    by    district-wide       crews,       and 

are    not    included    in    this    analysis.       The    remaining    activities 
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are  mostly  sign  and  guardrail  maintenance,  the  need  for 
which   would    vary    widely    with    the    type    of    highway. 

2 
Considering    the    Total    highway    system,     the    r      values    for 

each  particular  activity  class  are  rather  low.  This  is  not 
surprising  considering  that  the  Total  system  is  also 
heterogeneous  in  highway  types,  since  it  contains  all  the 
state  highways.  The  low  values  indicate  the  the  expenditure 
for  each  activity  class  cannot  be  predicted  based  on  the 
number  of  lane-miles  (or  road-miles,  bridges,  or  right-of- 
way       pass-miles      when      appropriate)       in      a    subdistrict.       The 

number    of    lane-miles    is    a    better      predictor       of       expenditure 

2 
for    all    activities    combined,    with    a    r       of    0.41. 

Figure  3.5  is  a  plot  of  expenditure  per  lane-mile 
versus  lane-miles  for  all  activities  on  the  Total  highway 
system.  There  is  a  general  trend  of  decreasing  expenditure 
per  lane-mile  with  increasing  total  lane-miles.  This,  along 
with  the  general  trend  of  increasing  total  expenditure  with 
increasing  total  lane-miles,  can  be  interpreted  as  discussed 
below. 

If  it  is  assumed  that  the  amount  of  programmed 
maintenance  and  maintenance  expenditures  are  based  on  need, 
and  that  each  subdistrict  maintains  its  highways  at  about 
the  same  level  of  quality,  the  decreasing  expenditure  per 
lane-mile  could  indicate  that  there  are  economies  of  scale 
involved    in    routine    maintenance    operations.       Thus,     a 
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subdistrict  with  more  lane-miles  does  more  total  work,  and 
the  scheduling  of  personnel  and  equipment  is  more  efficient, 
resulting  in  a  lower  cost  per  lane-mile.  Subdistricts  with 
more  lane-miles  typically  also  have  more  multi-lane  highways 
and  the  multi-lane  highways  require  proportionately  less 
maintenance  per  lane-mile  for  features  such  as  shoulders, 
ditches,  and  roadside  maintenance.  Also,  the  multi-lane 
highways  receive  more  rehabilitation  funds  from  other  fund- 
ing sources,  thereby  relieving  the  pressure  on  routine 
maintenance.  However,  if  the  assumption  of  equal  quality 
levels  of  maintenance  is  dropped,  the  decreasing  cost  per 
lane-mile  may  also  indicate  that  the  larger  subdistricts, 
having  more  territory  to  cover,  perhaps  spend  less  time  on  a 
given  activity  and  perform  the  work  at  a  lower  quality 
level . 

If  one  assumes  that  there  exists  an  "average  need"  for 
highway  maintenance  throughout  the  state,  it  would  be 
expected  that  subdistricts  with  more  highways  would  have 
higher  total  needs  and  thus  higher  total  expenditures.  But 
the  expenditure  per  lane-mile  would  be  expected  to  remain 
relatively  constant.  Since  expenditure  per  lane-mile  does 
tend  to  decrease  with  increasing  total  lane-miles,  perhaps 
the  increase  in  total  expenditure  is  not  adequate  to  meet 
the  needs.  In  this  case,  the  results  would  lead  to  the  con- 
clusion that  maintenance  expenditures,  or  the  amount  of 
maintenance  programmed  in  a  subdistrict,  is  not  determined 
solely  on  the  basis  of  need. 
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It  seems  likely  that  a  combination  of  the  factors  dis- 
cussed may  be  responsible  for  the  observed  trends.  However, 
the  total  amount  of  money  allocated  currently  to  a  subdis- 
trlct  is  not  strictly  based  on  formally-determined  needs; 
rather,  the  resources  available  are  distributed  among  dis- 
tricts and  subdistricts  through  a  process  involving  a  series 
of  meetings  among  Subdistrict,  District  and  Central  Office 
personnel.  Research  in  the  area  of  assessment  of  actual 
routine  maintenance  needs  will  be  of  much  help  in  programming 
routine  maintenance.  However,  that  subject  is  not  within 
the  scope  of  the  current  study. 
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CHAPTER  4 
EVALUATION  OF  SUBDISTRICT  PRODUCTIVITY 

By  using  the  maintenance  management  information  system 
to  monitor  the  productivity  of  the  subdistricts  in  executing 
the  maintenance  program,  managers  can  spot  problem  areas 
where  resources  may  not  be  being  used  as  efficiently  as  pos- 
sible. On  the  other  hand,  bright  spots  may  be  discovered 
where  subdistrict  personnel  have  developed  highly  efficient 
methods  of  accomplishing  their  maintenance  program.  This 
can  lead  to  corrective  action  being  taken  in  the  former 
case,  and  dissemination  of  methods  and  recognition  of  those 
responsible  in  the  latter,  resulting  in  an  improvement  in 
overall  efficiency  of  the  state's  maintenance  forces. 

A  procedure  for  monitoring  subdistrict  productivity, 
using  elements  of  the  IDOH  Maintenance  Management  Informa- 
tion System  already  in  place,  was  prepared.  The  procedure 
is  based  on  computer  and  manual  analysis  of  crew  day  card 
records  and  field  observations  of  maintenance  crews  at  work. 

Description  of  Computer  Program 

A  computer  program  was  developed  to  use  the  crew  day 
card   data  to  produce  relatively  simple  and  straight-forward 
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reports  showing  various  factors  by  which  subdistrict  perfor- 
mance may  be  assessed. 

On  the  basis  of  the  crew  day  card  records,  the  program 
determines  the  number  of  times  a  given  activity  was  per- 
formed by  each  subdistrict,  the  total  amount  of  work  accom- 
plished in  the  time  period  under  study,  the  average  accom- 
plishment per  crew  day,  the  average  crew  size,  the  average 
number  of  manhours  (both  regular  and  overtime)  per  crew  day, 
and  the  number  of  manhours  per  production  unit.  Also  deter- 
mined are  the  percent  of  the  time  a  given  material  is  used, 
the  average  quantity  of  the  material  when  it  is  used,  and 
the  average  quantity  of  material  per  production  unit,  when 
that  material  is  used.  The  average  cost  per  production  unit 
is  calculated,  along  with  the  labor  cost  and  material  cost 
per  production  unit.  A  summary  of  production  amounts,  labor 
and  material  use  for  each  of  the  six  districts  and  the  state 
as  a  whole  are  also  calculated.  The  subdistrict  summary 
information  can  also  be  presented  in  bar  chart  form. 

After  determining  these  values  for  each  subdistrict, 
the  program  takes  the  average  cost  figures  for  each  subdis- 
trict and  calculates  the  average  and  standard  deviation. 
Then,  the  average  cost  for  each  subdistrict  is  checked  to 
see  if  it  falls  outside  the  range  of  the  average  plus  or 
minus  a  given  number  of  standard  deviations.  These 
deviate   units   are  then   listed. 
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Figure  4.1  is  an  example  of  the  first  page  of  output 
from  the  analysis  of  activity  201,  shallow  patching  for  the 
period  from  July  1982  through  June  1983.  This  page  presents 
all  the  input  parameters  necessary  for  the  analysis.  As  it 
can  be  seen,  the  production  unit  of  activity  201  is  measured 
in  terms  of  tons  of  bituminous  mixture  placed.  There  are 
six  materials  specified  for  this  activity  indicating  that  up 
to  six  of  these  materials  may  be  used.  These  are  determined 
by  referring  to  the  appropriate  performance  standard.  The 
input  data  specify  the  code  number  and  material  description. 
For  example,  hot  bituminous  mixture  is  coded  onto  crew  day 
cards  as  material  4441.  The  next  column  contains  the 
material's  unit  price  in  dollars  per  unit  of  measure.  The 
last  column  contains  the  maximum  expected  quantity  of  this 
material,  a  value  used  to  detect  typographical  errors  in 
entering  the  crew  day  card  data.  If  a  quantity  of  30.0  tons 
of  mix  or  greater  were  read,  we  would  suspect  that  this  is  a 
coding  error.  That  record  would  be  rejected,  and  a  data 
check  message  would  be  printed. 

Next,  the  wage  rates  for  regular  and  overtime  hours  are 
listed.  These  values  are  used  to  calculate  the  labor  cost. 
Maximum  expected  values  for  crew  size,  manhours,  and  work 
accomplishment  are  then  listed.  These  are  used  to  check  for 
typographical  errors  as  explained  before.  The  beginning  and 
ending  dates  of  the  analysis  period  are  listed.  The  shor- 
test time  period  that  can  be  considered  is  one  month. 
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The  next  few  lines  indicate  which  program  options  have 
been  selected.  The  program  can  analyze  maintenance  work  for 
the  Interstate  system,  for  the  Other  State  Highway  system, 
or  the  Total  highway  system.  The  next  line  indicates  that  a 
subdistrict  will  be  identified  as  being  deviate  in 
productivity  based  on  average  cost  per  unit  of 
accomplishment  plus  or  minus  one  standard  deviation.  The 
number  of  standard  deviations  to  be  used  is  entered  by  the 
analyst.  Finally,  the  types  of  bar  charts  that  will  be 
printed  are  listed.  There  are  six  charts  that  may  be  printed 
for  each  highway  class. 

As  mentioned  earlier,  there  is  a  series  of  data  check 
messages  issued  by  the  program.  In  addition  to  the 
previously  described  messages,  the  program  also  prints  a 
message  if  it  encounters  a  material  that  was  not  specified 
in  the  input  information.  An  examination  of  the  data 
records  indicates  that  most  of  these  messages  result  from 
coding  errors.  The  number  of  rejected  data  records  is  very 
small.  Considering  the  1982-83  data  for  shallow  patching,  a 
total  of  9  out  of  approximately  12070,  records  were 
rejected,  or  0.07  percent. 

Figure  4.2  shows  a  part  of  the  labor  summary  page  for 
the  Other  State  Highway  system.  The  first  column  indicates 
the  management  unit,  or  subdistrict.  Consider  unit  1200, 
the  Crawf ordsville  subdistrict.   The  "CREW  DAYS"  column 
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indicates  that  the  activity  shallow  patching  was  carried  out 
68  times  during  the  analysis  period.  The  next  column  refers 
to  total  accomplishment  of  214.5  tons  of  bituminous  mix 
placed.  The  average  accomplishment  per  crew  day  was  3.2 
tons,  and  the  average  crew  size  was  6.7  men.  The  next  five 
columns  provide  information  on  the  number  of  regular  labor 
hours  used.  "TOT  RH  DAYS"  indicates  that  regular  labor 
hours  were  used  in  all  68  instances  of  shallow  patching. 
The  average  number  of  regular  hours  per  ton  placed  was 
15.57,  the  average  number  of  regular  hours  per  crew  day  was 
49.12,  and  the  total  regular  hours  attributed  to  this 
activity  during  the  year  was  3340.  The  next  column  indicates 
the  fraction  of  shallow  patching  crew  days  on  which  regular 
hours  were  used. 

The  last  five  columns  , give  similar  labor  data  for 
overtime  used.  There  was  only  one  time  when  overtime  hours 
were  used  for  shallow  patching  in  the  Crawf or ds ville 
subdistrict,  and  the  average  overtime  hours  per  ton  placed 
was  2.00.  The  average  overtime  per  crew  day,  when  overtime 
was  used,  was  4.00  hours,  and  the  total  number  of  overtime 
hours  used  for  shallow  patching  that  year  was  4.  The  last 
column  indicates  that  overtime  was  used  1.5  percent  of  the 
time  that  activity  201  was  carried  out. 


Figure  4.2  also  presents  a  part  of  the  material  use 
information.  Again  considering  unit  1200,  we  see  that  the 
total   number   of   times   that   activity   was   performed   is 
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repeated  here.  The  next  three  columns  give  information 
about  the  use  of  material  4441,  hot  bituminous  mixture, 
computed  as  shown  below. 


FRAC       !  R 


TR4441 


TQ4441 
AVGQNT  =  TR 

444  1 


TQ4441 

Where : 

FRAC  =  Fraction  of  the  time  material  4441  is  used  in 

activity, 
TR   =  Total  number  of  times  activity  is  performed, 
TR4441  =  Total  number  of  times  material  4441  is  used 

in  activity, 
AVQNT  =  Average  quantity  of  material  4441  when  it  is 

used, 
T<^4441  =  Total  quantity  of  material  4441  used, 
QNT/AC  =  Average  quantity  of  material  per 

accomplishment  unit, 
TAC4441  =  Total  accomplishment  for  activity  when 
material  4441  is  used. 

Thus,  material  4441,  hot  bituminous  mixture,  was  used 
54%  of  the  time  that  shallow  patching  was  carried  out,  and 
the  average  quantity  used  was  4.8  tons  per  day.   The  average 
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amount  of  material  4441  per  unit  of  accomplishment  was  1.00 
ton.  (This  particular  measure  for  this  activity  will  always 
be  1.00,  because  the  accomplishment  is  measured  in  tons  of 
mix  placed.  Thus,  tons  of  bituminous  mix  used  divided  by 
tons  of  accomplishment  will  equal  1.00.)  Similar 
calculations    are    made    for    each    specified    material. 

The  last  section  of  Figure  4.2  presents  a  part  of  the 
average  cost  per  subdistrict  data.  Again,  the  subdistrict 
number,  the  number  of  times  the  activity  was  performed,  and 
the  total  production  accomplishment  are  entered.  The  fourth 
column  lists  total  cost  per  ton  of  shallow  patching  for 
materials  and  labor.  In  the  case  of  Crawf ords ville ,  unit 
1200,  the  average  cost  for  shallow  patching  was  $115.84. 
The  labor  portion  of  this  cost  was  $90.58,  while  the 
materials  accounted  for  $25.26  per  ton.  The  last  columns 
break    down    material    cost    by    material    type. 

Similar  summaries  are  provided  for  each  district  and 
for    the    state    as    a   whole. 

Figure  4.3  indicates  the  results  of  the  productivity 
deviation      analysis.  The       average       productivity       of    all    37 

subdistricts  was  $93.47  per  ton,  with  a  standard  deviation 
of  $16.11  per  ton.  Using  the  average  plus  or  minus  one 
standard  deviation,  the  lower  limit  is  set  at  $77.36  per 
ton,  and         the      upper       limit       is       $109.58       per       ton.         All 

subdistricts  whose  average  cost  per  ton  for  shallow  patching 
falls    outside    this    range    are    listed. 
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Figure  4.4  is  a  bar  chart  showing  the  average  labor 
hours  per  accomplishment  unit.  The  average  and  standard 
deviation  are  listed  at  the  top.  To  the  right,  the  values 
for  hours,  cost,  and  accomplishment  are  listed.  Charts  for 
the  other  factors  are  similar. 


A  complete  description  of  the  program  including  its  use 
and  outputs  is  given  in  Appendix  A. 

Productivity  Monitoring  Procedure 

There  are  five  basic  steps  in  the  productivity 
monitoring  procedure  for  a  given  maintenance  activity.  The 
procedure  is  illustrated  in  Figure  4.5. 

1.  Identify  deviate  units.  This  is  done  by  using  the 
computer  program  to  determine  which  subdistricts  are  deviate 
with  respect  to  average  unit  cost.  The  analysis  may  be  done 
for  an  entire  year  or  for  any  number  of  months.  One  method 
is  to  divide  the  fiscal  year  into  a  number  of  periods,  say 
six,  and  run  the  program  for  each  two-month  period  as  well 
as  the  entire  year.  This  way,  subdistricts  that  are 
consistently  deviate  throughout  the  year  may  be  spotted,  or 
seasonal  trends  may  be  revealed. 

2.  Analyze  labor  and  material  factors.  The  program 
calculates  several  factors  describing  the  use  of  labor  and 
materials  by  each  subdistrict,  and  plots  them  in  bar  chart 
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I.   IDENTIFY  DEVIATE  UNITS 

Use  computer  program  to  spot  deviate  units 

II.   ANALYZE  LABOR  AND  MATERIAL  USE 

Review  bar  charts  from  program 

III.   REVIEW  AND  ANALYZE  EQUIPMENT  RECORDS 

Manually  review  crew  day  cards  for  units 
identified  in  Step  I 

Compare  equipment  use  with  factors  from  Step 
II 

IV.   CONDUCT  FIELD  INSPECTIONS 

Observe  work  methods  of  crews 

Note  highway  conditions 

Note  equipment  and  material  factors  not 
apparent  in  Step  II 

Discuss  procedures,  conditions,  etc.  with 
foremen 

V.   DRAW  CONCLUSIONS 

Base  conclusions  on  analysis  in  Steps  II, 
III,  and  IV 

If  corrective  action  is  appropriate,  take 
action  and  monitor  affected  units 


Figure  4.5.   Productivity  Monitoring  Procedure 
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form.  These  factors  include  the  average  crew  size,  average 
number  of  labor  hours  per  unit  of  accomplishment,  average 
amount  of  a  specified  material  used  per  accomplishment  unit, 
average  daily  accomplishment,  and  total  accomplishment 
during  the  analysis  period.  By  examining  these  charts, 
along  with  the  chart  of  average  cost  per  accomplishment 
unit,  some  apparent  relations  between  the  factors  and  cost 
may  be  found,  providing  insights  to  the  reasons  for  the  high 
and  low  costs.  For  this  study,  a  statistical  analysis  of 
these  data  was  conducted  to  determine  if  trends  spotted  by 
visual  examination  of  the  charts  corresponded  with  those 
indicated  by  statistical  analysis. 

3.  Review  equipment  records.  A  manual  review  of  a 
sample  of  crew  day  cards  must  be  made  to  determine  the  type 
and  amount  of  equipment  used.  Equipment  information  can 
help  determine  if  procedures  outlined  in  the  performance 
standards  are  being  followed  and  may  provide  clues  to  the 
quality  of  work.  For  example,  a  shallow  patching  crew  with 
only  a  pickup  truck  would  be  expected  to  perform  lower 
quality  work  than  a  crew  that  uses  a  portable  patcher  and 
roller.  Examination  of  these  records  may  indicate  an 
equipment  availability  or  scheduling  problem. 


4.  Conduct  field  inspections.  Because  there  is  no 
direct  indication  of  quality  or  roadway  conditions  available 
from  the  crew  day  card  records,  inspection  of  crews  at  work 
in   the   subdistricts   under  study  is  needed.   A  subdistrict 
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with  a  high  average  unit  cost  may  be  performing  higher 
quality  work  than  a  district  with  a  low  unit  cost.  Or, 
using  shallow  patching  as  an  example,  the  roadways  in  a 
low-cost  subdistrict  may  be  in  worse  condition  than  those  in 
a  high-cost  subdistrict.  The  unit  of  measure  for  shallow 
patching  is  tons  of  bituminous  mix  placed,  and  labor  is  the 
highest  percentage  of  the  cost.  Consider  a  crew  in  a 
subdistrict  whose  roads  are  in  fairly  good  condition.  The 
crew  is  assigned  to  perform  shallow  patching  for  the  day,  so 
the  workers  assemble  their  equipment,  and  patrol  their 
assigned  highway  looking  for  holes  to  patch.  The  highway 
has  relatively  small  holes  that  are  spaced  several  hundred 
yards  apart.  The  crew  needs  only  a  few  minutes  to  fill  each 
hole,  but  spends  a  large  part  of  its  time  travelling  between 
holes.  It  ends  up  producing  a  relatively  small  number  of 
tons  of  patching.  Now  consider  a  second  crew  of  the  same 
size  in  a  subdistrict  whose  roads  are  in  worse  condition. 
On  its  patrol,  this  crew  finds  relatively  large  holes  that 
are  spaced  fairly  close  together.  This  crew  would  spend 
less  time  travelling,  and  more  time  actually  filling  holes. 
Thus,  the  second  crew  would  have  a  higher  accomplishment  and 
lower  average  cost,  simply  because  its  highway  was  in  worse 
condition  than  that  of  the  first  crew. 

One  may  speculate  about  these  possibilities  based  on 
information  provided  by  the  crew  day  card  data,  but  field 
visits  are  needed  for  confirmation. 
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Discussion  with  subdistrict  personnel  may  reveal 
special  circumstances,  or  innovative  techniques  which  may 
have  a  potential  for  application  in  other  subdis t ricts . 

5.  Draw  conclusions  and  take  appropriate  action. 
Based  upon  findings  in  the  steps  above,  it  can  be  concluded 
if  in  fact  the  deviate  cost  experienced  by  the  units  under 
study  is  the  result  of  problems  which  should  be  corrected,  a 
result  of  innovative  techniques  which  should  be  shared  with 
other  subdistricts,  or  a  result  of  special  circumstances. 
If  some  action  is  deemed  appropriate,  it  should  be  taken, 
along  with  continued  monitoring  of  the  subdistricts  affected 
to  evaluate  the  effect  of  the  action. 

Demonstration  of  Procedure  with  Crack  Sealing 

An  analysis  for  activity  207,  crack  sealing,  in  fiscal 
year  1982-83  was  conducted  to  demonstrate  the  procedure. 

Identification  of  Deviate  Units 

Deviate  subdistricts  were  identified  by  running  the 
computer  program  for  six  consecutive  two-month  periods  and 
for  the  entire  fiscal  year.  Results  of  this  analysis  are 
summarized  in  Figure  4.6.  Seven  subdistricts  fell  into  the 
high-cost    group,    while    eight    fell    into    the    low-cost    group. 
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Analysis  of  Labor  and  Material  Factors 

Figures  4.7  through  4.12  are  the  bar  charts  showing  the 
average  cost  and  average  labor  hours  per  ton  of  mix,  total 
accomplishment,  average  daily  accomplishment,  average  crew 
size,  and  average  quantity  of  material  4431  (bituminous 
material)  per  lane  mile  for  the  entire  fiscal  year. 
Examination  of  these  charts  indicates  that  the  high-cost 
subdistricts  tend  to  have  above  average  labor  hours  per 
lane-mile,  and  low-cost  subdistricts  tend  to  have  below 
average  labor  hours  per  lane-mile.  In  general,  low-cost 
subdistricts  tend  to  do  more  total  crack  sealing  than 
subdistricts  in  the  high-cost  group,  indicating  there  may  be 
an  economy  of  scale.  As  expected,  there  appears  to  be  a 
strong  relation  between  cost  and  average  accomplishment, 
with  the  low-cost  subdistricts  exhibiting  a  higher  average 
accomplishment  than  the  high-cost  subdistricts.  The  bar 
charts  do  not  clearly  indicate  a  relation  between  crew  size 
and  cost,  but  there  seems  to  be  a  strong  relation  between 
the  amount  of  bituminous  material  used  per  lane-mile  and 
cost,  with  the  low-cost  subdistricts  using  less  material 
than    the    high-cost    subdistricts. 


A  statistical  analysis  was  conducted  to  confirm  these 
trends  using  data  from  the  six  two-month  period  analyses. 
An  analysis  of  variance  with  covariates  was  used.  For  each 
month/subdistrict  combination,  there         was       one       set       of 

observations    of    cost    and    the    various    factors.       The    37 
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subdis t ricts  were  divided  into  five  groups  of  seven  each,  based 
on  the  average  cost  for  the  entire  year  without  considering  vari- 
ation by  time  period.  The  five  groups  were  used  as  the  factor 
levels.  Data  for  two  subdistricts  were  disregarded,  so  there 
would  be  equal  cell  sizes  for  each  factor  level.  The  dependent 
variable  was  average  cost,  and  covariates  used  in  the  analysis 
were  frequency  (number  of  times  activity  was  performed),  average 
accomplishment,  average  crew  size,  and  average  amount  of  bitumi- 
nous material  used  per  lane-mile. 

Table  4.1  presents  the  results  of  the  analysis.  It  is 
desired  to  determine  if  the  variables  listed  in  the  source  column 
have  an  effect  on  the  average  cost.  If  one  were  to  conclude  that 
each  variable  in  the  source  column  does  have  an  effect  on  cost, 
the  tail  probability  is  the  probability  that  this  conclusion  is 
not  correct.  Thus,  the  lower  the  tail  probability  for  a  source, 
the  more  likely  it  is  that  the  source  does  have  an  effect  on 
average  cost.  If  a  significance  level  of  10  percent  is  selected, 
that  is,  if  we  accept  a  10  percent  risk  of  concluding  that  a 
variable  has  a  significant  effect  when  in  fact  it  does  not,  the 
covariates  with  a  significant  effect  are  average  accomplishment, 
average  crew  size,  and  average  amount  of  bituminous-  material 
used.  The  beta  estimate  is  the  estimate  of  the  standardized 
regression  coefficient.  If  the  beta  estimate  is  positive,  it 
indicates  that  as  the  value  of  the  independent  variable 
increases,  so  will  the  value  of  the  dependent  variable.   If 
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the  beta  estimate  is  negative,  it  indicates  that  as  the 
value  of  the  independent  variable  increases,  the  value  of 
the  dependent  variable  decreases. 

Three  of  the  covariates  had  tail  probabilities  of  0.00 
percent:  average  accomplishment,  average  crew  size,  and 
amount  of  bituminous  material  used  per  lane-mile.  The  beta 
estimates  indicate  that  as  average  accomplishment  increases, 
cost  decreases.  As  average  crew  size  and  average  amount  of 
bituminous  material  used  per  lane-mile  increase,  so  does  the 
average  cost.  The  relation  between  crew  size  and  cost  was 
not  apparent  from  the  bar  chart,  perhaps  because  the 
variation  is  not  very  large  in  terms  of  persons.  The 
effects  of  average  accomplishment  and  amount  of  bituminous 
material  used  were  spotted  in  examining  the  bar  charts. 

The  analysis  of  variance  reveals  that  after  removing 
the  effects  due  to  the  covariates,  there  is  no  significant 
variation  in  cost  attributable  to  the  main  factor  of 
subdistrict  group.  The  mean  square  values  are  an  indication 
of  the  relative  amount  of  the  variation  in  cost  that  is 
explained  by  the  independent  variables.  The  larger  the  mean 
square  for  an  independent  variable,  the  more  variation  in 
the  dependent  variable  is  explained  when  that  independent 
variable  is  considered.  The  mean  square  values  indicate 
that  a  relatively  large  amount  of  the  variation  in  cost  is 
removed  when  the  amount  of  bituminous  material  used  (P4431) 
is   considered.    This  indicates  that  the  subdistricts   that 
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use  more  material  have  the  higher  costs,  a  fact  that  may 
reflect  the  condition  of  the  roads  being  sealed  more  than 
the    work    methods    used. 


Summarizing,    high-cost    su-J^stricts     tend    to    use       larger 
crews,  seal         fewer       lane-miles       per       day,       and       use       more 

bituminous  material  per  lane-mile.  This  suggests  that  the 
condition  of  the  roadway  may  be  a  main  factor  in  governing 
productivity.  If  the  roadway  has  a  large  number  of  cracks, 
it  would  take  more  time  to  seal  them  all,  decreasing  the 
number  of  lane-miles  that  a  crew  can  seal  per  day,  resulting 
in    a    higher    unit    cost. 

Review    of    Equipment    Records 

A  manual  review  of  crew  day  card  records  was  conducted 
for  three  subdis t ri cts  :  5300  (Columbus)  from  the  low-cost 
group,  1300  (Fowler)  from  the  average-cost  group,  and  4200 
(Monticello)  from  the  high-cost  group.  Crew  day  card 
records  for  the  months  of  October,  November,  and  December 
1982  were  examined  to  determine  the  type  of  equipment  used. 
The  performance  standard  for  activity  207  calls  for  the  use 
of  pickup/pickup  crew  cab  trucks,  dump  trucks,  an  air 
compressor,    and    a    tar    kettle     [6], 

All  three  subdistricts  used  dump  trucks  and  pickup  or 
pickup  crew  cabs  100  percent  of  the  time.  However,  there 
were  differences  in  the  use  of  air  compressors,  tar  kettles, 
and    distributor    trucks.       Tables    4.2    and    4.3    summarize    the 
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Table    4.2.       Equipment    Summary    for    Activity    207 
(Crack    Sealing) 


%    of    Time    Used 


Equipment 


Subdistrict    Cost 

Low         Average         High 

Dump    Truck  ~"      TD13  TD15  TOO" 

Pickup/Pickup    Crew    Cab 
Air    Compressor 
Tar    Kettle 
Dis  t ributor 

Number    of    Observat  ions  4~3  29      ~~  IT" 

*      Low    —    Subdistrict     5300,    Columbus 
Average    —    Subdistrict     1300,    Fowler 
High    —    Subdistrict    4200,    Monticello 
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observations.  Air  compressors  are  used  to  clean  out  cracks 
prior  to  sealing.  A  tar  kettle  contains  and  heats  the 
bituminous    material    used    for    sealing.  Workers       fill       hand- 

carried  pots  from  the  tar  kettle  and  pour  the  bituminous 
material  into  cracks  from  these  pots.  A  distributor  is  a 
tank  truck  which  holds  the  bituminous  material.  The 
bituminous  material  is  applied  from  a  distributor  via  a 
hand-held    spray    bar. 


The  high-cost  subdistrict  reported  use  of  an  air 
compressor  100  percent  of  the  time  as  contrasted  with  the 
average-cost  subdistrict  that  never  used  an  air  compressor, 
and  the  low-cost  subdistrict  that  reported  use  of  an  air 
compressor  35  percent  of  the  time.  The  high-cost  group 
reported  approximately  the  same  average  accomplishment  as 
the    average-cost    group,     but    used      a       larger       crew.  In      the 

low-cost  group,  larger  crew  sizes  and  larger  average 
accomplishment  were  reported  when  an  air  compressor  was  used 
than      when       it      was       not.  It       appears       that       use    of    an    air 

compressor  requires  a  larger  crew,  but  does  not  seem  to  have 
an  effect  on  average  accomplishment.  If  this  is  indeed  the 
case,  use  of  an  air  compressor  would  cause  these 
subdistricts  to  have  a  higher  unit  cost,  because  an  extra 
crew  member  is  needed  to  run  the  compressor  without 
increasing  the  number  of  lane-miles  that  can  be  sealed  in  a 
day  . 
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The  high-cost  subdistrict  that  used  a  distributor  100 
percent  of  the  time  used  larger  crews  and  accomplished  less 
per  day  than  did  the  low-cost  subdistrict  that  used  a  tar 
kettle  100  percent  of  the  time.  The  average-cost 
subdistrict  used  a  tar  kettle  52  percent,  and  a  distributor 
48  percent  of  the  time.  When  a  tar  kettle  was  used  in  the 
average-cost  subdistrict,  a  larger  crew  and  smaller 
accomplishment  were  reported  on  the  average  than  when  a 
distributor  was  used. 


Based  on  these  observations,  it  appears  that  the  use  of 
an  air  compressor  requires  a  larger  crew  without  providing 
an  increase  in  daily  accomplishment,  leading  to  a  higher 
unit  cost.  However,  in  order  to  properly  seal  cracks,  they 
must  be  free  of  dirt  and  other  debris.  Road  conditions  do 
vary,  and  it  may  often  be  the  case  that  a  roadway  is  clean 
and  the  cracks  free  of  debris,  making  it  unnecessary  to  blow 
them  clean.  But  it  hardly  seems  likely  that  this  would 
always  be  the  case,  and  one  would  question  the  practice  of 
never  using  an  air  compressor.  Factors  such  as  this  can 
only  be  spotted  in  a  manual  review  of  records,  or  field 
inspections.  No  trends  with  respect  to  the  use  of  a  tar 
kettle  versus  distributor  are  apparent  from  these  equipment 
records . 
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Field  Inspections 

One  prototypical  field  inspection  was  made  of  a  sealing 
crew  at  work  in  the  Columbus  subdistrict,  selected  from  the 
low-cost  group. 

The  observations  were  made  on  U.S.  31  north  of 
Franklin,  in  Johnson  County  on  December  13,  1983.  A  ten-man 
crew  used  two  dump  trucks,  two  crew  cab  pickups,  a  tar 
kettle,  and  an  air  compressor.  A  pickup  pulling  the  air 
compressor  was  first  in  the  process,  followed  by  a  dump 
truck  pulling  the  tar  kettle  and  three  workers  applying 
bituminous  material  to  cracks,  and  three  workers  squeezing 
the  material  into  the  cracks.  Next  in  line  was  a  dump  truck 
equipped  with  a  sand  spreader  that  backed  along  spreading 
sand  on  the  sealed  surface.  Last  in  line  was  a  pickup 
pulling  an  arrow  board.  After  observing  the  operation  and 
condition  of  the  road,  the  unit  foreman  on  the  scene  decided 
that  it  was  not  necessary  to  blow  the  cracks  clean,  allowing 
the  compressor  to  be  parked  and  the  crew  member  operating  it 
to  help  with  the  actual  sealing. 


According  to  the  unit  foreman,  the  bituminous  material 
being  used  was  unusually  thick,  and  he  expected  the  crew's 
accomplishment  to  be  lower  than  normal,  because  the  thick 
material  is  slower  to  pour.  The  bituminous  material  used  is 
delivered  to  the  subdistrict  and  its  quality  is  not  under 
their    control.     According   to   the   foreman,   the   daily 
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accomplishment  of  a  crew  will  vary  according  to  the  conditions  of 
the  sealing  material  and  to  the  severity  of  cracking  of  the  road- 
way. The  foreman  indicated  that  U.S.  31  was  one  of  the  worst 
roadways  in  his  area  with  respect  to  cracking,  and  need  to  be 
resurfaced.  To  the  observer,  who  was  more  familiar  with  road 
conditions  in  the  north-central  part  of  the  state,  U.S.  31  at 
this  location  appeared  to  be  in  relatively  good  condition. 
Without  an  objective  state-wide  standard  for  determining  pavement 
conditions,  what  constitutes  a  "bad"  pavement  as  opposed  to  a 
"good"  pavement  is  a  subjective  judgement.  Furthermore,  the 
severity  of  cracking  that  it  takes  for  a  road  to  be  one  of  the 
worst  in  a  subdistrict  depends  on  the  overall  conditions  of  all 
the  roads  in  that  subdistrict.  If  the  roads  in  one  subdistrict 
exhibit  overall  a  lower  level  of  cracking  than  those  in  a  second 
subdistrict,  then  a  road  that  is  one  of  the  worst  in  the  first 
subdistrict  could  be  in  the  same  condition  as  one  of  the  best 
roads  in  the  second.  Perhaps  roadways  in  the  southern  part  of 
the  state  are  in  better  condition  than  those  in  the  north.  Fig- 
ure 4.6  indicates  that  seven  of  the  eight  low-cost  subdistricts 
are  in  the  southernmost  districts,  Seymour  and  Vincennes ,  while 
five  of  the  seven  high-cost  subdistricts  are  in  the  two  northern- 
most   districts,    Fort    Wayne    and    LaPorte. 


More    field    inspections       are       currently       being       conducted       to 
further    investigate    this    possibility. 
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Cone lusions 

The  analysis  of  covariance  indicates  that  higher  costs  arc 
associated  with  larger  crew  sizes,  lower  average  daily  accom- 
plishment, and  higher  rates  of  material  use.  The  analysis  indi- 
cates that  the  amount  of  material  used  per  lane-mile  explains  a 
great  deal  of  the  variation  in  average  cost.  Most  of  the  high- 
cost  subdistricts  are  in  the  two  northernmost  districts,  while 
most  of  the  low-cost  subdistricts  are  in  the  two  southernmost 
districts.  In  addition,  a  highway  in  the  southern  half  of  the 
state  that  an  IDOH  foreman  identified  as  one  of  the  worst  in 
terms  of  cracking  appeared  to  be  in  relatively  good  condition  to 
an  observer  who  was  more  familiar  with  highways  in  the  north- 
central  part  of  the  state.  This  suggests  that  there  may  be  a 
difference  in  road  conditions  in  the  southern  versus  the  northern 
part  of  the  state,  a  factor  on  which  climate  could  have  an 
effect.  More  field  inspections  are  being  undertaken  to  investi- 
gate this  possibility  and  to  compare  the  quality  of  work  in  vari- 
ous subdistricts. 

Demons  tration  of  Procedure  with  Shallow  Patching 


An  analysis  for  activity  201,  shallow   patching,   in   fiscal 
year  1982-83  was  conducted. 
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Identification    of    Deviate    Units 

Deviate  subdis t ricts  were  identified  by  running  the 
program  for  two-month  periods  throughout  the  year  and  for 
the  entire  fiscal  year.  A  subdistrict  was  defined  as 
deviate  if  its  average  cost  fell  outside  the  range  of  the 
average  plus  or  minus  one  standard  deviation.  The  results 
are  summarized  in  Figure  4.13.  As  seen  in  the  figure,  seven 
subdistricts  were  in  the  high-cost  category  and  five  in  the 
low-cost    group. 

Analysis  of  Labor  and  Material  Factors 

Figures  4.14  through  4.19  are  bar  charts  showing  the 
average  cost  and  average  labor  hours  per  ton  of  mix,  total 
accomplishment,  average  daily  accomplishment,  average  crew 
size,  and  average  quantity  of  material  4431  (bituminous 
material)  per  ton  of  mix  for  the  entire  fiscal  year.  An 
examination  of  these  charts  indicates  that  the  high-cost 
subdistricts  tend  to  use  more  labor  hours  per  ton  of  mix 
while  the  low-cost  units  use  less  labor.  It  appears  that 
low-cost  units  tend  to  have  done  more  total  patching  than 
high-cost  units,  indicating  there  may  be  some  economy  of 
scale. 

As  expected,  there  is  a  strong  trend  with  respect  to 
average         daily         accomplishment.  Units       with       low       daily 

accomplishment    fall    into    the    high-cost       group,       while       those 
with    high    daily    accomplishment     tend    to     be    found    in    the 
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low-cost  group.  Average  crew  size  does  not  vary  widely  in 
terms  of  numbers  of  persons,  and  no  trend  with  respect  to 
cost  is  apparent.  It  appears  that  the  average  amount  of 
material  4431  (bituminous  material  used  as  a  tack,  coat)  used 
per  ton  of  patching  does  not  have  an  effect  on  the  average 
cos  t . 

Summarizing,  a  comparison  of  the  bar  charts  suggests 
that  subdistricts         with  low         daily         production         and 

correspondingly  high  labor  use  per  ton  of  patching  fall  into 
the  high-cost  group,  while  those  with  high  daily  production 
and  low  labor  use  per  ton  fall  into  the  low-cost  group.  A 
statistical    analysis    was    conducted    to    confirm    these    trends. 

Data  used  for  the  analysis  were  from  the  six  two-month 
analyses.  For  each  two-month  period  and  each  subdistrict, 
there  was  one  observation  of  cost,  average  labor  hours, 
average  accomplishment,  average  crew  size,  etc.  An  analysis 
of  variance  with  covariates  was  conducted.  Based  on  the 
average  cost  figures  for  the  entire  year,  the  37 
subdistricts  were  divided  into  five  groups  of  seven  each. 
The  five  groups  were  used  as  the  factor  levels.  Data  from 
two  subdistricts  were  disregarded  so  there  would  be  equal 
cell  sizes  for  each  factor  level.  Average  cost  was  taken  as 
the  independent  variable,  and  the  continuous  variables  of 
frequency  (number  of  times  the  activity  was  performed), 
average  accomplishment,  average  crew  size,  fraction  of  the 
time      hot       bituminous       mixture    was    used,    and    fraction    of     the 
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time    bituminous    material    was    used,    were    the    covariates.       Average 
labor    hours    was    not    used,     because    this    figure    was    used    to    calcu- 
late   the    cost    directly.       Furthermore,     the    analysis    did    not    con- 
sider   the    variation    by    2-month    time    period. 

Table    4.4    presents     the     results     of     the    analysis.       If    a    signi- 
ficance   level    of     10    percent    is    selected,     that     is,     if    we    accept    a 
10    percent     risk    of    concluding    that    a    variable    has    a    significant 
effect    when    in    fact    it    does    not,     the    covariates    with    a    signifi- 
cant   effect    are    average    accomplishment    and    average    crew    size. 
The    beta    estimates     indicate    that    average    cost    increases    as    aver- 
age   accomplishment    decreases    and    crew    size    increases. 

Thus,     the    analysis    of    covariance    confirms     the    trends    spotted 
through    examination    of     the    bar    charts.       The    subdistricts    with 
higher    costs    have    a    lower    daily    accomplishment    than    those    with 
lower    costs.       While    there    is    not    a    large    variation    in    crew    size, 
larger    crews    are    associated    with    higher    costs.       This     is    expected, 
since     labor    is     the    highest    part    of     the    cost     of    shallow    patching. 

Review    of    Equipment    Records 

A  manual  review  of  crew  day  card  records  was  conducted  for 
three  subdistricts:  5200  ( Bloomingt on )  from  the  low-cost  group, 
1300  (Fowler)  from  the  average-cost  group,  and  1200  (Crawfords- 
ville)  from  the  high-cost  group.  Crew  day  card  records  for  the 
months  of  October,  November,  and  December  1982  were  examined  to 
determine    the    type    of    equipment    used. 
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Table  4.5.   Equipment  Summary  for  Activity  201 
(Shallow  Patching) 


Equipment 

% 

of 

Time 

Used 

Subdistrict 

Cost 

Low 

Average    Hign 

Dump  Truck 

Pickup/Pickup  Crew  Cab 
Bituminous  Mix  Trailer 
Portable  Patcher 

n 

100 

45 

0 

82 
100 

54 
0 

47 

100 

0 

26 

Number  of  Observations 

Jl 

jy 

iy 

Low  —  Subdistrict  5200,  Bloomington 
Average  —  Subdistrict  1300,  Fowler 
High  —  Subdistrict  1200,  Crawf ords ville 
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Tables  4.5  and  4.6  summarize  the  observations.  The 
performance  standard  for  activity  201  calls  for  the  use  of  a 
dump  truck,  pickup  crew  cab,  bituminous  mix  trailer,  and  a 
compactor  (hand  or  mechanical)  [6]. 

Dump  trucks  were  used  for  shallow  patching  most  of  the 
time  in  the  low-cost  and  average-cost  subdistricts  (77  and 
82  percent  of  the  time,  respectively)  but  only  42  percent  of 
the  time  in  the  high-cost  subdistrict.  Pickup  and/or  pickup 
crew  cab  trucks  were  always  used.  The  use  of  a  mechanical 
compactor  was  only  reported  once,  that  being  in  the 
average-cost  subdistrict.  The  largest  variation  was  in  the 
use  of  bituminous  mix  trailers  and  portable  patchers. 

A  bituminous  mix  trailer  consists  basically  of  a  box 
for  storage  of  the  mix,  and  propane  heaters  to  keep  the  mix 
warm.  This  slows  the  cooling  of  hot  mix,  and  helps  make 
cold  mix  easier  to  work  with  in  cold  weather.  A  portable 
patcher  consists  of  a  rotating  cylinder  type  heater.  Cold 
mix  is  shoveled  into  one  end  and  is  heated  to  approximately 
275  F  by  the  time  it  exits  the  rotating  cylinder.  The 
heated  mix  is  easier  to  work  with  and  makes  a  higher  quality 
patch  than  cold  mix  that  is  unheated,  or  just  warmed  in  a 
bituminous  mix  trailer. 

In  the  high-cost  subdistrict,  a  portable  patcher  was 
used  26  percent  of  the  time.  Larger  crews  were  used  along 
with  the  patcher.   The  average  crew   size   when   a   portable 
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patcher  was  reported  was  9.2  persons,  compared  to  6.0  when 
one  was  not  used.  However,  average  accomplishment  increased 
when  a  portable  patcher  was  used,  being  3.6  tons  compared 
with  2.2  tons  otherwise.  A  portable  patcher  was  reported 
only  on  Interstate  repairs.  This  may  indicate  that  a  higher 
quality  of  repair  is  made  on  an  Interstate  than  on  an  Other 
State  Highway. 

The  high-cost  subdistrict  did  not  report  the  use  of  a 
bituminous  mix  trailer  during  these  months.  However,  the 
low-cost  and  average-cost  subdistricts  did  use  a  bituminous 
mix  trailer,  but  did  not  use  a  portable  patcher. 

In  the  low-cost  subdistrict,  a  bituminous  mix  trailer 
was  used  45  percent  of  the  time.  Average  crew  size  with  a 
bituminous  mix  trailer  was  higher,  5.2  versus  4.5  men,  and 
average  accomplishment  was  lower,  5.6  versus  7.8  tons. 

In  the  average-cost  subdistrict,  a  bituminous  mix 
trailer  was  used  54  percent  of  the  time.  However,  the 
average  crew  size  was  only  slightly  higher  when  a  trailer 
was  used,  6.7  versus  6.4  men.  Also,  the  average 
accomplishment  was  only  slightly  lower  when  a  trailer  was 
used,  3.7  versus  3.9  tons. 


Based  on  the  observations  in  these  three  subdistricts, 
it  appears  that  the  use  of  a  portable  patcher  coincides  with 
a  larger  crew  size  and  higher  average  production  within  the 
one   subdistrict   studied.    No  such  conclusion  can  be  drawn 
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with  regard  to  the  bituminous  mix  trailer.  Both  the  low- 
cost  and  average-cost  subdistricts  reported  using  a  trailer 
approximately  half  of  the  time.  The  average  crew  size  and 
accomplishment  in  the  average-cost  subdistrict  was  approxi- 
mately equal  regardless  of  the  type  of  equipment  used,  but 
in  the  low-cost  subdistricts,  larger  crews  and  lower  accom- 
plishment accompanied  use  of  a  trailer. 

Conclusions 


It  was  not  possible  to  make  field  inspections  of  shal- 
low patching  during  the  initial  phase  of  the  study;  however, 
field  inspections  are  currently  being  conducted  in  the  final 
phase  of  the  study.  It  would  be  premature  to  draw  conclu- 
sions until  the  field  studies  are  completed,  but  some  prel- 
iminary observations  can  be  made.  Subdistricts  that  use 
larger  than  average  crews  and  achieve  lower  than  average 
daily  accomplishment  exhibit  higher  than  average  unit  costs. 
When  a  portable  patcher  is  used  instead  of  a  bituminous  mix 
trailer  or  just  a  dump  or  pickup  truck,  unit  costs  tend  to 
increase.  No  observations  with  respect  to  quality  of  work 
can  be  made  without  field  inspections. 
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CHAPTER  5 
SUMMARY  AND  RECOMMENDATIONS 

Summary 

The  use  of  the  monitoring  procedure  developed  in  this 
study  can  assist  maintenance  managers  in  improving  the  pro- 
ductivity of  their  operations.  Using  information  currently 
collected  by  the  IDOH  Maintenance  Management  Information 
System  (MMIS),  a  computer  program  developed  in  the  study 
identifies  subdistricts  with  unusually  high  or  low  resource 
use.  Further  study  of  these  subdistricts  should  reveal  the 
reasons  for  their  deviations  in  resource  use.  If  the  reason 
for  a  subdis trict 's  being  deviate  is  improper  work  methods, 
corrective  action  can  be  taken.  If  on  the  other  hand,  a 
subdistrict  is  deviate  because  its  managers  use  more  effi- 
cient methods  to  provide  the  required  quality  of  work, 
information  about  these  methods  may  be  disseminated 
throughout  the  state.  Another  reason  for  a  subdis t ri ct ' s 
being  deviate  could  be  the  physical  condition  of  the  road- 
way. For  example,  a  subdistrict  may  have  a  high  cost  for 
crack  sealing  because  its  roads  simply  have  more  cracks  to 
seal  per  lane-mile.  No  corrective  action  would  be  indicated 
in  such  a  case,  but  these  factors  can  be  identified  and 
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considered  when  programming   maintenance   for   that   subdis- 
trict. 

Because  the  computer  program  was  developed  to  use 
information  currently  available  from  crew  day  cards  as 
entered  on  computer  tape,  there  are  no  reports  of  equipment 
use,  and  no  consideration  of  work  quality  in  the  computer 
reports.  This  makes  it  necessary  to  manually  review  crew 
day  cards  to  gather  equipment  information,  and  to  make  field 
inspections  of  crews  at  work  to  evaluate  the  quality  of  work 
in  a  subdistrict.  Manual  inspection  of  crew  day  cards  is  a 
time-consuming  procedure.  With  the  total  number  of  cards, 
it  would  not  be  possible  to  gather  complete  information. 
Only  a  sampling  of  cards  from  the  few  subdistricts  identi- 
fied for  individual  study  would  be  possible.  If  the  equip- 
ment information  were  included  on  computer  tape  along  with 
the  labor  and  material  information,  it  could  be  analyzed 
easily  by  computer. 

Recommendations 


It  is  recommended  that  the  procedure  developed  in  this 
study  be  demonstrated  further,  with  particular  emphasis  on 
evaluating  the  quality  of  maintenance  operations.  An 
analysis  should  be  conducted  to  determine  if  the  quality  of 
maintenance  work  is  correlated  with  the  average  cost  of  pro- 
duction, or  other  productivity  measures  available  from  the 
computer  compilation  of  crew  day  card  data. 
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The  IDOH  equipment  use  information  that  is  currently 
gathered  via  crew  day  cards  should  be  recorded  on  computer 
tape  along  with  the  labor  and  material  information.  This 
would  allow  equipment  use  to  be  evaluated  along  w  I  L  li  labor 
and  material  information  via  computer,  eliminating  the  need 
for  manual  review  of  crew  day  cards. 

Because  the  current  IDOH  Maintenance  Management  Infor- 
mation System  has  no  measure  of  roadway  conditions  or  qual- 
ity of  maintenance,  it  is  recommended  that  a  systematic  survey 
of  quality  or  roadway  conditions  be  considered  for  develop- 
ment and  implementation.  This  would  supply  a  key  piece  of 
information  for  productivity  analysis,  providing  a  broader 
information  base  than  the  limited  spot  inspections  of  crews 
at  work.  It  would  allow  correlation  of  quality  or  roadway 
condition  factors  with  the  productivity  measures  for  the 
entire  state,  instead  of  just  for  the  few  subdistricts  sin- 
gled out  for  individual  study.  This  would  not  eliminate  the 
need  for  subdistrict  visits  as  part  of  the  procedure,  how- 
ever. Observations  of  crews  at  work  and  discussions  with 
personnel  in  subdistricts  identified  as  deviate  in  resource 
use  would  still  be  a  valuable  source  of  insight  to  the  rea- 
sons for  the  observed  deviations. 

A  comprehensive  survey  of  road  conditions  has  potential 
use  in  the  programming  process  as  well.  If  the  survey  were 
designed  to  identify  roadway  deficiencies  to  which  mainte- 
nance crews  should  respond,  it  could  be  used  for  determining 
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maintenance  needs,  as  well  as   an   overall   measure   of   the 
quality  of  maintenance  in  a  subdistrict. 
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Int  roduct ion 

Program  RMPS  (Routine  Maintenance  Productivity  Summary) 
analyzes  crew  day  card  data  from  the  IDOH  Maintenance 
Management  System,  and  produces  relatively  simple  and 
straight-forward  reports  showing  various  factors  by  which 
subdistrict  performance  may  be  assessed.  It  is  assumed  that 
the  user  is  familiar  with  the  IDOH  Maintenance  Management 
Sys  tern. 

RMPS  analyzes  data  for  one  activity  and  time  period  per 
run.  On  the  basis  of  the  crew  day  card  records,  the  program 
calculates  the  following  factors  for  each  subdistrict:  the 
number  of  times  a  given  activity  was  performed,  the  total 
amount  of  work  accomplished  in  the  time  period  under  study, 
the  average  accomplishment  per  crew  day,  the  average  crew 
size,  the  average  number  of  manhours  (both  regular  and  over- 
time) per  crew  day,  and  the  number  of  manhours  per  accom- 
plishment unit.  Also  determined  are  the  percent  of  the  time 
a  given  material  is  used,  the  average  quantity  of  the 
material  when  it  is  used,  and  the  average  quantity  of 
material  per  accomplishment  unit,  when  that  material  is 
used.  The  average  cost  per  accomplishment  unit  is  calcu- 
lated, along  with  the  labor  cost  and  material  cost  per 
accomplishment  unit.   A  summary  of   accomplishment   amounts, 
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labor  and  material  use,  and  cost,  for  each  of  the  six  dis- 
tricts and  the  state  as  a  whole  are  also  calculated.  This 
information  is  presented  in  tabular  form.  The  subdistrict 
summary  information  can  also  be  presented  in  bar  chart  form. 

After  calculating,  the  various  factors  for  each  subdis- 
trict, RMPS  takes  the  average  cost  figures  for  each  subdis- 
trict and  calculates  the  average  and  standard  deviation. 
Then,  the  average  cost  for  each  subdistrict  is  checked  to 
see  if  it  falls  outside  the  range  of  the  overall  average 
plus  or  minus  a  given  number  of  standard  deviations.  These 
deviate  units  are  then   listed. 

With  the  results  from  RMPS,  maintenance  managers  can 
spot  subdistricts  with  unusually  high  or  low  resource  use, 
total  accomplishment,  or  average  accomplishment.  The  vari- 
ous factors  calculated  and  presented  in  bar  chart  form  pro- 
vide a  starting  point  for  the  manager  to  determine  reasons 
for  the  observed  deviations. 

Manual  Organization 

The  remainder  of  this  manual  is  organized  into  three 
main  sections.  First,  the  data  base  used  by  the  program  is 
explained.  The  second  section  explains  the  input  prepara- 
tion and  program  output.  Output  from  a  sample  run  of  RMPS 
is  included  in  this  section,  followed  by  an  explanation  of 
the  program  error  messages.  The  third  section  explains  the 
calculation  procedure  and  program   structure,   and   includes 


104 


notes  on  computer  resource  requirements. 

Data  Base 

The  data  base  used  by  RMPS  is  IDOH  Maintenance  Division 
crew  day  card  data  as  recorded  on  magnetic  tape.  Crew  day 
card  information  may  be  entered  as  one  or  two  "records"  on 
the  tape.  A  record  may  be  thought  of  as  one  80-character 
line  of  data,  similar  to  a  computer  card  with  80  columns. 
All  maintenance  activities  require  the  utilization  of  labor, 
but  all  do  not  require  the  use  of  materials.  Labor  and 
material  information  are  entered  on  two  separate  records. 
Normally,  the  first  record  entered  is  the  labor  record.  If 
the  activity  also  required  the  use  of  material,  the  material 
information  is  listed  on  the  next  record.  The  data  entered 
on  a  labor  record,  their  column  locations  on  the  record,  and 
their  formats  are  listed  in  Table  A.l.  The  data  entered  on 
a  material  record,  their  column  locations  and  formats  are 
listed  in  Table  A. 2. 

There  are  two  other  types  of  material  and  labor 
records.  A  "91"  record  is  a  labor  record  entered  by  central 
office  personnel  to  correct  mistakes  found  in  the  labor 
information  entered  by  subdis t rict s .  A  "9m"  is  a  similar 
record  for  materials.  Because  there  are  a  relatively  small 
number  of  these  types  of  cards,  and  RMPS  checks  for  gross 
typographical  errors  in  entering  data,  the  "91"  and  "9m" 


Table  A.l.   Format  of  Labor  Record 
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Co lumn 


Information 


Format 


1-2 
3-5 
8-10 
11-14 
18-23 
24-25 
26-28 
29-30 
31-32 
33-36 
37-40 
41-46 


Card  type  (91)  A2 

Activity  Number  13 

Road  Class  Abbr.(INT  or  OSH)  A3 

Management  Unit  Identification  14 

Date(MMDDYY)  312 

Route  Type(US,  SR,  or  I)  A2 

Route  Number  13 

County  12 

Crew  Size  12 

Regular  Hours  14 

Overtime  Hours  14 

Accomplishment  F6.1 
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Table  A. 2.   Format  of  Material  Record 


Column 


Information 


Format 


1-2  Card  Type  (93)  A2 

3-5  Activity  Number  13 

8-10  Road  Class  Abbr.(INT  or  OSH)  A3 

11-14  Management  Unit  Identification  14 

18-23  Date(MMDDYY)  312 

24-25  Route  Type(US,  SR,  or  I)            A2 

26-28  Route  Number  13 

29-30  County  12 

31-34  Material  Number,  1  14 

35-40  Material  Quantity,  1                F6.1 

41-44  Material  Number,  2  14 

45-50  Material  Quantity,  2               F6.1 

51-54  Material  Number,  3  14 

55-60  Material  Quantity,  3               F6.1 

61-64  Material  Number,  4  14 

65-70  Material  Quantity,  4               F6.1 

71-74  Material  Number,  5  14 

75-80  Material  Quantity,  5               F6.1 
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records  are  not  included  in  the  analysis. 

The  data  file  for  an  entire  year  contains  approximately 
400,000  individual  records.  They  are  entered  roughly  in 
chronological  order,  but  there  is  no  order  at  all  by  subdis- 
trict  or  activity  type.  Since  RMPS  analyzes  data  for  only 
one  activity  during  a  run,  it  is  strongly  recommended  that 
the  crew  day  card  file  first  be  edited,  and  all  records  for 
the  activity  to  be  analyzed  be  placed  in  a  different  file. 
This  will  save  a  great  deal  of  computer  time  during  the  exe- 
cution of  RMPS.  This  is  particularly  true  if  more  than  one 
run  of  RMPS  will  be  made  for  the  same  activity.  Thus,  it  is 
better  to  sort  the  crew  day  card  records  once,  rather  than 
requiring  each  run  of  RMPS  to  look,  through  the  entire  data 
tape. 

Program  Input  and  Output 

Two  data  files  are  input  for  RMPS.  One  contains  the 
parameters  that  specify  what  calculations  RMPS  will  make, 
and  the  other  is  the  crew  day  card  data  file.  The  crew  day 
card  data  file  was  described  under  "Data  Base"  earlier  in 
this  manual.  This  section  describes  the  preparation  of  the 
input  parameter  file  and  the  resulting  RMPS  output.  The 
program  error  and  data  check  messages  are  also  explained. 
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Input  Parameters 

Parameters  are  input  in  the  form  of  a  data  file  that  is 

read   by   the  program.   Data  entry  is  free  format.   At  least 

one  space  must  separate  parameters  on   the  same   line,   and 
each  line  must  contain  all  the  parameters  specified  for  that 

line  as  indicated  below.   Figure  A.l  is  an  example  parameter 
input  file. 


LINE  1  Enter  the  value  of  variable  IB.  IB  is  the 
first  line  in  the  crew  day  card  file  that  will 
be  examined  by  RMPS.  If  an  analysis  is  being 
conducted,  and  the  user  knows  the  approximate 
location  on  the  data  file  of  the  pertinent 
crew  day  card  records,  IB  may  be  used  to  cause 
the  program  to  skip  over  the  first  (IB  -  1) 
records  before  examining  the  information  on 
each  line.  This  will  decrease  the  program's 
execution  time.  For  example,  if  the  user 
knows  that  the  data  pertinent  to  the  analysis 
are  somewhere  after  the  first  8000  lines,  IB 
can  be  set  to  8000.  The  program  would  skip 
the  first  7999  lines  without  examining  the 
information  contained  therein.  Line  8000 
would  be  the  first  one  checked  to  see  if  it  is 
pertinent  to  the  analysis.  If  the  location  of 
the  data  is  not  known,  IB  should  be  set  to  1. 
One  numerical  entry  is  made  on  this  line. 

LINE  2  Enter  IDOH  Maintenance  Management  code  for  the 
activity  to  be  analyzed  (variable  IACT). 
Enter  the  number  of  materials  that  are  likely 
to  be  used  for  this  activity,  the  number  of 
"specified  materials"  (variable  NMAT).  Two 
numerical  entries  are  made  on  this  line. 

LINE  3  Enter  the  description  of  the  activity  being 
analyzed  (variable  DACT).  The  description 
must  be  contained  in  the  first  40  spaces  of 
the  line  and  is  the  only  entry  on  this  line. 

LINE  4  Enter  the  unit  of  measure  of  the  activity 
(variable  UACT).  The  unit  name  must  be  con- 
tained in  the  first  20  spaces  of  the  line,  and 
it  is  the  only  entry  on  this  line. 
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LINE  5  Enter  the  IDOH  Maintenance  Management  code  of 
the  first  specified  material  (variable  SM(1)). 
Enter  the  unit  cost  for  the  material  (variable 
CSM(l)).  Enter  the  maximum  expected  quantity 
of  the  material  (variable  QMAX(l)).  QMAX(l) 
is  a  value  that  is  used  for  checking  the  crew 
day  card  data.  If  a  quantity  of  specified 
material  greater  than  QMAX(l)  is  read,  it  is 
suspected  that  this  is  a  typographical  error, 
a  data  check  message  is  printed,  and  the  value 
is  not  used  in  the  analysis.  Three  numerical 
entries  are  made  on  this  line. 

LINE  6  Enter  the  description  of  specified  material  1 
(variable  DSM(l)).  The  description  must  be 
contained  within  the  first  40  spaces  of  the 
line  and  is  the  only  entry  on  this  line. 

LINE  7  Enter  the  unit  of  measure  of  specified 
material(l)  (variable  USM(l)).  The  descrip- 
tion of  the  unit  must  be  contained  in  the 
first  20  spaces  of  the  line  and  is  the  only 
entry  on  this  line. 

The  above  three  lines  are  repeated  for  each  material   to 

be   specified.    The  number  of  materials  to  be  specified 

is  equal  to  NMAT ;  thus,  the  total  number  of   lines   used 

to   describe   the   materials  associated  with  an  activity 

will  be  (3  *  NMAT).   After  all  the  materials   have   been 

specified,   the  next  line  number  in  the  file  will  be  (LN 

+  1),  where  LN=4  +  (3  *  NMAT). 


LINE  LN+1  Enter  the  average  regular-time  wage  rate  per 
worker  in  $  per  hour  (variable  CRH )  .  Enter 
the  average  overtime  wage  rate  per  worker  in  $ 
per  hour  (variable  COT).  A  total  of  two 
numerical  entries  are  made  on  this  line. 

LINE  LN+2  Enter  the  maximum  expected  crew  size  (variable 
MAXCR).  Enter  the  maximum  expected  number  of 
hours  (variable  MAXHR).  This  is  usually  the 
maximum  expected  crew  size  times  eight  hours. 
Enter  the  maximum  expected  daily  accomplish- 
ment (variable  ACMAX).  These  values  are  used 
for  checking  for  typographical  errors  in   crew 
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size,  labor  hours,  and  accomplishment,  in  a 
manner  similar  to  the  check.  for  maximum 
expected  material  quantity  described  above. 
The  maxhr  value  is  used  for  checking  both  reg- 
ular and  overtime  hours,  but  the  individual 
values  (not  the  sum)  are  checked.  Three 
numerical    entries    are    made    on    this    line. 

LINE  LN+3  Enter  the  first  month  of  the  analysis,  where 
l»January,  2=February,  etc.  (variable  IBM). 
Enter  the  last  two  digits  of  the  year  of  the 
first  month  of  the  analysis  period  (variable 
IBY).  Enter  the  last  month  of  the  analysis 
period  (variable  IEM).  Enter  the  year  of  the 
last  month  of  the  analysis  period  (variable 
IEY).  For  example,  a  period  of  July  1982 
through  June  1983  would  be  entered  as  7  82  6 
83,  and  a  period  from  November  through 
December  1983  would  be  entered  as  11  83  12  83. 
The  analysis  period  cannot  span  more  than  two 
calendar  years.  A  total  of  four  numerical 
entries    are    made    on    this    line. 

LINE  LN+4  A  total  of  10  numbers  are  entered  on  this 
line: 

Enter  1  if  a  deviation  analysis  is  to  be  con- 
ducted;   enter    0    if    it    is    not    (variable    IDEV). 

Enter  1  if  the  analysis  is  to  be  done  for  the 
Interstate  system;  enter  0  if  it  is  not  (vari- 
able   INTOUT). 

Enter  1  if  the  analysis  is  to  be  done  for  the 
Other  State  Highway  system;  enter  0  if  it  is 
not     (variable    0SH0UT). 

Enter  1  if  the  analysis  is  to  be  done  for  the 
Total  system;  enter  0  if  it  is  not  (variable 
T0T0UT). 

Enter  1  if  a  bar  chart  of  average  cost  is  to 
be  printed;  enter  0  if  it  is  not  (variable 
ICOST). 

Enter  1  if  a  bar  chart  of  average  labor  hours 
per  accomplishment  unit  is  to  be  printed; 
enter    0    if    it    is    not     (variable    IHOURS). 

Enter  1  if  a  bar  chart  of  total  period  accom- 
plishment is  to  be  printed;  enter  0  if  it  is 
not     (variable    ITACC). 
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Enter  1  if  a  bar  chart  of  average  daily  accom- 
plishment is  to  be  printed;  enter  0  if  it  is 
not  (variable  IAVACC). 

Enter  1  if  a  bar  chart  of  average  crew  size  is 
to  be  printed;  enter  0  if  it  is  not  (variable 
ICREW). 

Enter  n  if  a  bar  chart  of  average  quantity  of 
the  n-th  specified  material  is  to  be  printed; 
enter  0  if  it  is  not  (variable  1MAT ) .  A  chart 
for  only  one  material  can  be  printed  per  run. 

LINE  LN+5  Enter  the  number  of  standard  deviations  to  be 
used  in  the  deviation  analysis  (variable 
SDEV).  This  is  the  only  entry  on  the  line. 
This  line  is  included  only  if  the  first  entry 
in  the  preceding  line  is  1.  Otherwise,  LINE 
LN+4  is  the  last  line  of  the  file. 


Figure  A.l  is  an  example  parameter  input  file  for 
activity  201.  It  specifies  six  materials,  indicates  that 
the  analysis  is  to  be  done  for  the  Total  highway  system 
only,  that  a  deviation  analysis  is  to  be  done  using  1.0 
standard  deviation,  and  that  all  six  bar  charts  are  to  be 
printed.  The  material  chart  is  to  be  for  the  4-th  specified 
material,  code  number  4431  (bituminous  material).  The 
analysis  period  is  from  July  1982  through  June  1983. 

Program  Output 

The  output  resulting  from  the  parameter  input  file  of 
Figure  A.I  is  presented  in  Figure  A. 2.  The  first  page 
echoes  the  program  parameters,  describing  the  analysis  that 
was  conducted.  If  any  errors  in  the  parameters  were  found, 
appropriate  error  messages  would  be  listed  next.  The  next 
pages  list  possible  errors  in  reading  the  crew  day  card  data 
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file,  or  possible  errors  in  the  data  themselves.   The   error 
messages  are  described  in  the  following  section. 


The  next  page  printed  is  an  output  key,  explaining  the 
factors  that  are  presented  in  the  next  several  pages.  The 
labor  factors  are  presented  first,  followed  by  the  material, 
and  cost  factors.  Then  the  results  of  the  deviation 
analysis  are  presented,  if  such  an  analysis  was  performed. 
Finally,  the  bar  charts  are  printed.  If  more  than  one  sys- 
tem were  analyzed,  similar  pages  for  each  system  would  be 
printed . 
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1 

201  6 

Shallow  Patching 

Ton  of  Mix 

4441  25.5  30. 
Bituminous  Mixture  HOT 
Ton 

4442  25.5  30. 
Bituminous  Mixture  COLD 
Ton 

4443  0.0  30. 

Salvage  Bituminous  Mixture 

Ton 

4431  .78  5000. 

Bituminous  Material 

Gallon 

4251  4.1  500. 
Aggregate 
Ton 

4252  3.  500. 
Seal/Cover  Aggregate 
Ton 

5.81    5.81 

30    240    30.0 

7    82    6    83 

10    0    1  111114 

1. 


Figure    A.l.       Example    of    Parameter    Input    File 
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130 
Error  and  Data  Check.  Messages 

Several  error  or  data  check  messages  may  be  printed  by 
RMPS.  An  error  message  is  printed  in  response  to  some  kind 
of  error  detected,  while  a  data  check  message  refers  to  a 
questionable  piece  of  data.  The  data  may  or  may  not  be 
correct,  something  that  must  be  determined  by  the  user. 
This  section  of  the  manual  describes  each  possible  message, 
its  source,  probable  cause  and  recommended  corrective 
action. 

Error  messages  generally  have  the  form,  "***ERR0R*** 
'explanation  message'",  where  'explanation  message'  is  a 
brief  description  of  the  error.  A  line  of  data  follows  the 
'explanation  message'  in  some  cases.  This  section  Lists  the 
'explanation  messages'  from  error  statements  in  alphabetical 
order,  notes  which  subroutine  printed  the  error,  and  what 
corrective  action  should  be  taken. 


'ABNORMAL  TERMINATION,  End  of  file  reached  before  ib, 
Program  terminated  within  subroutine  BEGIN.' 
Printed  by  subroutine  BEGIN.  In  this  case, 
the  value  of  ib,  the  first  data  record  to  be 
examined  by  the  program  is  larger  than  the 
total  number  of  lines  in  the  data  file.  The 
user  is  probably  using  the  wrong  data  file,  or 
he  does  not  know  the  correct  location  of  the 
data  of  interest  within  the  data  file.  Check 
data  file  or  set  ib  to  a  lower  value. 

'All  material  codes  are  not  within  correct  numeri- 
cal range.'  Printed  by  subroutine  CKPRAM.  A 
material  code  has  been  read  that  is  not  within 
the  range  of  4060-4522,  non-inclusive.  Either 
the  material  code  number  is  incorrect,  or  more 
material  codes  have  been  added  to  the  IDOH 
Maintenance   Management   System.    Check    the 
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material  code  number.  If  a  new  code  has  been 
added,  the  values  in  CKPRAM  must  be  changed. 
(They  are  set  between  statements  30  and  40  in 
CKPRAM. ) 

'Beginning  date   is  before   ending   date.'   Printed   by 

CKPRAM.  The   beginning  date  for  the  analysis 

period  is  earlier  than  the  ending  date.   Check 

the  dates  in  the  parameter  input  file. 

'Beginning  month  is  less  than  1  or  greater  than  12.' 
Printed  by  CKPRAM.  Check  specification  for 
beginning  month  in  parameter  input  file. 
l=January,  2=February,  etc. 

'Ending  month  is  less  than  1  or  greater  than  12.' 
Printed  by  CKPRAM.  Check  specification  for 
ending  month  in  parameter  input  file. 

'Ending  year  is  before  beginning  year.'  Printed  by 
CKPRAM.  Check  specifications  for  beginning 
and  ending  years  in  parameter  input  file. 

'Ending  year  is  later  than  beginning  year  +  1.' 
Printed  by  CKPRAM.  Check  year  specifications 
in  parameter  file.  The  analysis  period  cannot 
span  more  than  two  consecutive  years. 

'Error  reading  data  in  RDLAB  stmt  900.'  Printed  by 
RDLAB .  The  current  data  record  is  also 
printed  according  to  the  format  in  Table  A.l. 
A  reading  error  has  occurred  while  executing 
the  read  statement  just  before  statement  900 
in  RDLAB.  Likely  cause  is  a  format  error. 
Check  the  data  format. 

'Error  reading  data  in  RDMAT  stmt  900.'  Printed  by 
RDMAT .  The  current  data  record  is  also 
printed  according  to  the  format  in  Table  A. 2. 
A  reading  error  has  occurred  while  executing 
the  read  statement  just  before  statement  900 
in  RDMAT.  Likely  cause  is  a  format  error. 
Check  the  data  format. 

'Error  reading  month,  yr  in  CKRD2  stmt  61.'  Printed 
by  CKRD2.  The  values  of  month  and  yr  are  also 
printed.  A  reading  error  occurred  in  CKRD2 
while  executing  the  read  statement  immediately 
following  statement  61.  Likely  cause  is  a 
format  error.   Check  the  data  format. 

'Error  reading  month,  yr  in  CKRD2  stmt  141.'  Printed 
by  CKRD2.   The  values  of  month  and  yr  are  also 
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printed.  A  reading  error  occurred  in  CKRD2 
while  executing  the  read  statement  immediately 
following  statement  141.  Likely  cause  is  a 
format  error.   Check  the  data  format. 

'Error  reading  type,  act,  month,  yr  in  READ,  stmt 
10.'  Printed  by  READ.  A  reading  error 
occurred  while  executing  the  read  statement, 
statement  10  in  READ.  Likely  cause  is  a  for- 
mat error.   Check  the  data  format. 

'Error  reading  yr  in  CKRD2  stmt  50.'  Printed  by 
CKRD2.  The  value  of  yr  is  also  printed.  A 
reading  error  occurred  in  CKRD2  while  execut- 
ing the  read  statement  immediately  after 
statement  50.  Likely  cause  is  a  format  error. 
Check  data  format. 

'Error  reading  yr  in  CKRD2  stmt  131.'  Printed  by 
CKRD2 .  The  value  of  yr  is  also  printed.  A 
reading  error  occurred  in  CKRD2  while  execut- 
ing the  read  statement  immediately  after 
statement  131.  Likely  cause  is  a  format 
error.   Check  data  format. 

'Month  read  is  less  than  1  or  greater  than  12.' 
Printed  by  CKRD1.  Values  of  month  and  irex 
are  also  printed.  The  error  was  detected  on 
the  irex-th  record  examined.  Likely  cause  is 
incorrect  format  on  the  record.  Could  also 
indicate  incorrect  read  format  in  program. 

'More  than  6  materials  are  specified.'  Printed  by 
CKPRAM.  Value  of  nmat,  the  number  of  speci- 
fied materials,  is  greater  than  6.  Check  the 
value  of  nmat  in  the  parameter  input  file. 

'Read  act  code  is  less  than  200  or  greater  than 
299.'  Printed  by  CKRD1 .  Values  of  act  and 
irex  are  also  printed.  The  error  was  detected 
on  the  irex-th  record.  The  activity  code  was 
not  a  "200"  number.  Likely  cause  is  typo- 
graphical error  on  the  record.  Could  also 
indicate  incorrect  read  format  in  program. 
NOTE:  If  the  data  are  not  sorted  according  to 
activity,  activity  codes  other  than  "200" 
numbers  may  be  read  where  there  is  no  error. 

'Specified  activity  code  is  less  than  200  or  greater 
than  299.'  Printed  by  CKPRAM.  Only  activities 
with  "200"  codes  are  anticipated  to  be 
analyzed.  The  specified  activity  has  a  code 
number  outside  this  range.   Check  the  value  of 
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iact  in  the  parameter  input  file.  NOTE:  If 
activities  with  code  numbers  other  than  "200" 
numbers  are  to  be  analyzed,  this  error  and  the 
previous  error  checks  must  be  changed. 

'Unexpected  card  type.'  Printed  by  CKRD1.  Values  of 
type  and  irex  are  also  printed.  The  error  was 
detected  on  the  irex-th  record  examined.  A 
card  type  other  than  91,  91,  93,  or  9m  was 
read.  Likely  cause  is  a  typographical  error. 
Could  also  indicate  incorrect  read  format  in 
program. 

'Value  of  iavacc  is  incorrect,  iavacc=  .'  Printed 
by  CKPRAM.  Iavacc  must  be  0  or  1 .  Check 
value  in  parameter  input  file. 

'Value  of  icost  Is  incorrect,  icost=  .'  Printed  by 
CKPRAM.  Icost  must  be  0  or  1.  Check  value  in 
parameter  input  file. 

'Value  of  icrew  is  incorrect,  icrew=  .'  Printed  by 
CKPRAM.  Icrew  must  be  0  or  1.  Check  value  in 
parameter  input  file. 

'Value  of  idev  is  incorrect,  idev=  .'  Printed  by 
CKPRAM.  Idev  must  be  0  or  1.  Check  value  in 
parameter  input  file. 

'Value  of  ihours  is  incorrect,  ihours=  .'  Printed 
by  CKPRAM.  Ihours  must  be  0  or  1 .  Check 
value  in  parameter  input  file. 

'Value  of  imat  is  incorrect,  imat=  .'  Printed  by 
CKPRAM.  Imat  must  be  0  or  1.  Check  value  in 
parameter  input  file. 

'Value  of  intout  is  incorrect,  intout=  .'  Printed 
by  CKPRAM.  Intout  must  be  0  or  1 .  Check 
value  in  parameter  input  file. 

'Value  of  itacc  is  incorrect,  itacc=  .'  Printed  by 
CKPRAM.  Itacc  must  be  0  or  1.  Check  value  in 
parameter  input  file. 

'Value  of  oshout  is  incorrect,  oshout=  .'  Printed 
by  CKPRAM.  Oshout  must  be  0  or  1 .  Check 
value  in  parameter  input  file. 

'Value  of  totout  is  incorrect,  totout=  .'  Printed 
by  CKPRAM.  Totout  must  be  0  or  1 .  Check 
value  in  parameter  input  file. 
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A  data  check  message  is  printed  when  a  value  of  a  vari- 
able read  from  a  crew  day  card  record  is  suspected  of  being 
incorrect.  The  messages  are  of  the  general  form,  "***DATA 
CHECK***  'message',"  where  'message'  explains  the  question- 
able data  value.  The  entire  data  record  on  which  the  ques- 
tionable value  appears  is  also  printed.  Values  read  from 
records  which  trigger  data  check  messages  are  not  included 
in  the  tabulation.  The  messages  are  listed  below  in  alpha- 
betical order. 


'Large  crew  size,  crew=  .'  The  entire  data  record 
is  also  printed,  using  the  format  in  table 
A.l.  Printed  by  RDLAB.  The  value  of  crew 
is  larger  than  the  maximum  expected  crew 
size,  maxcr,  specified  on  line  LN+2  of  the 
parameter  input  file.  The  data  record  can 
be  examined  to  determine  if  the  value  is 
likely  in  error,  or  if  it  appears  to  be 
correct.  If  several  of  these  messages  are 
printed  for  values  of  crew  that  appear  to  be 
correct,  the  value  of  maxcr  should  be 
increased. 

'Large  hour  value(s),  rh=  ,  ot=  .'  Rh  is  the 
value  of  regular  hours  from  the  data  record, 
and  ot  is  the  value  of  overtime.  The  entire 
data  record  is  also  printed,  using  the  for- 
mat in  Table  A.l.  Printed  by  RDLAB.  The 
value  of  rh  or  ot  is  larger  than  the  maximum 
expected  hour  value,  maxhr,  specified  on 
line  LN+2  of  the  parameter  input  file.  The 
data  record  can  be  examined  to  determine  if 
the  value  is  is  likely  in  error,  or  if  it 
appears  to  be  correct.  If  several  of  these 
messages  are  printed  for  values  of  rh  or  ot 
that  appear  to  be  correct,  the  value  of 
maxhr  should  be  increased. 

'Large  material  quantity,  mat=  ,  quan=  .'  Mat 
is  the  material  code,  and  quan  is  the 
material  quantity  from  the  data  record.  The 
entire  data  record  is  also  printed,  using 
the  format  in  table  A. 2.  Printed  by  INTMAT 
or   OSHMAT.    The   material  quantity  read  is 
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larger  than  the  maximum  expected  quantity 
for  that  material,  qmax,  specified  in  lines 
5  through  LN  of  the  parameter  input  file. 
'  The  data  record  can  be  examined  to  determine 
if  the  material  quantity  is  likely  a  typo- 
graphical error  or  if  it  appears  to  be 
correct.  If  several  of  these  messages  are 
printed  for  a  material,  the  qmax  value  may 
need  to  be  increased. 

'Questionable  accomplishment  value,  acc=  .'  Ace  is  the 
accomplishment  value  read  from  the  data 
record.  The  entire  data  record  is  also 
printed.  Printed  by  RDLAB.  The  accomplish- 
ment value  read  is  greater  than  the  expected 
maximum,  acmax,  specified  on  line  LN+2  in 
the  input  parameter  file.  The  data  record 
can  be  examined  to  determine  if  the  value  is 
likely  a  typographical  error,  or  if  it 
appears  to  be  correct.  If  several  of  these 
messages  are  printed  for  accomplishment 
values  that  appear  to  be  correct,  the  value 
of  acmax  may  need  to  be  increased. 

'Unexpected  material,  m(k)=  .'  M(k)  is  the  unrecog- 
nized material  code;  it  is  the  k-th  material 
code  listed  on  the  data  record.  The  entire 
data  record  is  also  printed  according  to  the 
format  in  Table  A. 2.  Printed  by  INTMAT  or 
OSHMAT.  The  indicated  material  code  was  not 
one  of  the  specified  materials  listed  in 
lines  5  through  LN  of  the  parameter  input 
file.  The  record  can  be  examined  to  deter- 
mine if  there  was  an  apparent  coding  error. 
If  several  of  these  messages  are  printed  for 
the  same  material,  and  there  appears  to  be 
no  coding  error,  this  material  may  need  to 
be  added  to  the  list  of  specified  materials 
in  the  parameter  file. 

'Unusual  class  designation,  class3  .'  Class  is  the 
roadway  class  designation  read  from  the 
record.  The  entire  record  is  also  printed 
according  to  the  format  in  Table  A.l  if  it 
is  a  labor  record,  or  Table  A. 2  if  it  is  a 
material  record.  Printed  by  RDLAB  or  RDMAT. 
The  roadway  class  designation  is  not  'int' 
or  'osh'.  The  likely  cause  is  a  typographi- 
cal error. 
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Program  Calculation  Procedure  and  Structure 

Language  and  Resource  Requirements 

RMPS  is  written  in  standard  Fortran  IV,  except  for   two 

minor   exceptions   as   explained  below,   and   uses  standard 

library  functions.   The  code   is  approximately   5500   lines 
long,  including  comments. 

Because  the  program  was  developed  on  a  computer  system 
on  which  Fortran  77,  not  Fortran  IV  was  available,  character 
variables  had  to  be  declared  as  such.  Thus,  if  RMPS  is  to 
be  used  on  a  system  with  only  Fortran  IV,  the  character 
declaration  statements  must  be  removed.  These  statements 
occur  at  the  beginning  of  the  main  program,  MAIN,  and  all 
subroutines  except  the  following:  BEGIN,  CKRD2,  INTLAB,  0SH- 
LAB,  OUTKEY,  DSTLAB,  DSTMAT,  DSTCST,  and  STDEV.  The  logical 
files  are  assigned  with  open  statements  located  near  the 
beginning  of  the  main  program,  MAIN.  Three  files  are  used 
by  RMPS.  Unit  1  is  the  parameter  input  file;  unit  2  is  the 
crew  card  data  file,  and  unit  3  is  the  output  file. 

RMPS  was  developed  and  tested  on  a  Digital  Equipment 
Corporation  VAX  11/780  with  a  UNIX  4.2(bsd)  operating  sys- 
tem. The  executable  code  requires  111616  decimal  bytes;  the 
initialized  data  portions  require  80896  decimal  bytes;  and 
the  uninitialized  data  areas  require  21312  bytes,  for  a 
total  of  213824  decimal  bytes.  The  execution  time  varies 
with  the  program  options  selected  and  the  size  of  data   file 
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being  used.  Typical  execution  times  (CPU  times)  range  from 
one  or  two  minutes  for  a  short  analysis  period  (one  or  two 
months)  when  the  data  of  interest  are  at  the  beginning  of 
the  file,  to  approximately  ten  minutes  for  an  analysis 
period  of  a  year  with  activity  201  (the  largest  activity), 
when  the  data  file  has  been  sorted  to  contain  only  records 
of  that  activity  for  that  year. 

Structure  and  Calculation  Procedure 

The  program  consists  of  one  main  program,  called  MAIN, 
and  41  subroutines.  RMPS  has  two  main  sections:  one  that 
reads  data,  and  one  that  analyzes  the  data.  Figure  A. 3  is 
a  block  diagram  of  the  program. 

Subroutine  MAIN  controls  the  switching  between  the  main 
sections  of  the  program.  Initially,  MAIN  calls  subroutine 
PARAM  which  reads  the  program  control  parameters.  These 
parameters  indicate  which  activity  to  analyze,  what  highway 
systems  the  analysis  is  for,  and  what  type  of  output  is 
desi  red. 

Subroutine  PARAM  calls  subroutine   CKPRAM   which   echos 

the   parameters,   and   checks   them  for  reasonableness.   The 

following  checks  are  made,  and  if   any   parameter   does   not 

have  an  acceptable  value,  an  error  message  is  printed. 

Activity   Variable  iact  specifies  the  IDOH  Maintenance   code 
for  the  activity  being  analyzed.   The  routine 


138 


H 

1 

WJ 

O 

E-« 

i 

1 

H 

Z 

M 

E-« 

H 

CO 

O 

en 

O 

O 

Pi 

U 

Ph 

IX, 

o 

H 
en 
os 


o 

H 
H 

CO 
C_) 


Number 


139 


maintenance  activity  codes  are  all  numbers  from 
200  through  299.  The  activity  code  must  fall 
within  this  range. 

A  maximum  of  six  materials  may  be  specified  for 
each  activity. 


Material  Material  codes  must  fall  within  the  range  of 
4060-4522,  non-inclusive.  This  range  was 
determined  from  the  list  of  materials  in  the 
1982-83  Field  Operations  Handbook  for  Foremen, 
Division  of  Maintenance. 

Date  The  analysis  period  dates  are  checked  to  insure 
that  the  beginning  date  is  earlier  than  the  ending 
date,  and  that  month  specifications  are  from  1 
through  12  (January  —  December).  An  analysis 
period  cannot  span  more  than  two  calendar  years. 

Deviation  Variable  idev  equals  0  if  no  deviation  analysis 
is  to  be  performed;  it  equals  1  otherwise. 

Highway  Variables  intout,  oshout,  totout  are  0  if  the 
analysis  is  not  to  be  done  for  the  interstate, 
other  state  highway,  or  total  system, 
respectively;  they  are  1  otherwise. 

Bar  One  variable  for  each  type  of  bar  chart  indicates 
if  that  chart  is  to  be  printed.  The  variable  is  0 
if  the  chart  is  not  to  be  printed;  it  is  one 
otherwise.  The  variables  are  icost,  ihours,  imat, 
itacc,  iavacc,  and  icrew  for  average  cost,  labor 
hours,  material  quantity,  total  accomplishment, 
average  accomplishment,  and  crew  size, 
respectively. 

If  any  of  the  parameters  has  an  unacceptable  value,  the 

program  stops.   Otherwise,  control  is  returned  to  MAIN. 


Next,  subroutine  BEGIN  is  called  to  position  the  data 
file  to  the  desired  starting  point.  The  data  files  used 
with  RMPS  tend  to  be  very  large,  and  the  program  must 
examine  each  line  to  see  if  it  is  a  record  for  the  activity 
and  time  period  being  analyzed.  If  the  user  is  interested 
in   a   particular   time   period,   and  he  happens  to  know  the 
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approximate  location  of  these  data  on  the  tape,  he  can 
specify  that  a  number  of  lines  in  the  data  file  be  skipped, 
thus  decreasing  the  program's  execution  time.  For  example, 
if  it  is  known  that  the  data  of  interest  begin  somewhere 
after  the  first  8000  lines  of  the  file,  variable  ib  can  be 
set  to  8000.  Subroutine  BEGIN  would  then  skip  the  first 
7999  lines  without  examining  the  data  contained  therein.  If 
the  location  of  the  data  is  not  known,  ib  should  be  set  to 
1,  and  BEGIN  will  not  be  called. 

Next,  the  section  that  reads  and  compiles  the  data  is 
entered,  as  subroutine  READ  is  called.  Data  for  the 
Interstate  and  Other  State  Highway  system  are  tabulated 
separately,  as  well  as  together  for  the  Total  highway 
system.  READ  first  reads  the  record  type,  activity  number, 
and  month  on  a  data  record  and  calls  subroutine  CKRD1  (ChecK 
ReaD  1 )  to  check  if  these  values  appear  reasonable. 

CKRD1  will  try  to  catch  possible  typographical  errors, 
or  errors  in  the  input  format  for  these  variables.  An  error 
message  is  printed  if  the  card  type  is  not  91,  93,  91,  or 
9m,  if  the  activity  number  is  not  between  200  and  299,  or  if 
the  month  is  not  an  integer  from  1  through  12.  Control  then 
returns  to  READ. 

If  an  error  had  been  detected,  READ  will  go  to  the  next 
data  record.  Also,  if  the  data  record  is  type  91,  or  9m, 
READ  will  go  to  the  next  data  record.    If   no   errors   were 
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detected,  READ  calls  subroutine  CKRD2  (ChecK  ReaD  2)  to 
determine  if  the  data  record  is  for  the  activity  and  time 
period  of  interest. 

For  each  data  record,  CKRD2  will  determine  the  "status" 
and  report  it  back  to  READ.  The  next  action  of  read  depends 
on  the  status.  The  status  is  reported  by  variable  istat. 
If  istat=*0,  the  current  record  is  for  the  correct  activity 
and  date  of  interest.  If  istat=l,  the  current  record  is 
either  for  an  activity  not  of  interest,  or  is  for  a  date 
before  the  beginning  of  the  analysis  period.  If  istat=3,  it 
is  believed  that  all  data  for  the  analysis  period  have  been 
read.  CKRD2  first  checks  the  activity.  If  the  record  is 
not  for  the  specified  activity,  istat  is  set  to  1,  and 
control  returns  immediately  to  READ. 

If  the  activity  is  correct,  the  date  is  checked.  The 
year  of  the  record  is  checked.  If  it  is  less  than  the  year 
of  interest,  istat  is  set  to  1  and  control  returns  to  READ. 
If  the  year  is  the  one  of  interest,  the  month  is  checked. 
If  the  month  is  too  early,  istat  is  set  to  1  and  control 
returns  to  READ.  If  the  month  is  too  late,  the  next  200 
records  are  checked  to  insure  that  all  the  data  for  the 
analysis  period  has  been  read.  This  is  required  because  the 
data  are  entered  only  roughly  in  chronological  order.  A 
record  with  a  date  after  the  analysis  period  can  occur  on 
the  data  file  before  other  records  within  the  analysis 
period.   If  all  of  the  next  200  records  are  dated  later  than 
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the  analysis  period,  istat  is  set  to  2,  and  control  is 
returned  to  READ.  If  one  of  the  records  is  dated  within  the 
analysis  period,  istat  is  set  to  0  before  returning  to  READ. 
If  the  year  read  from  a  record  is  later  than  the  analysis 
period,  the  next  200  records  are  checked  to  insure  that  all 
data  for  the  analysis  period  have  been  read,  as  in  the  case 
when  the  month  is  too  late. 

It  should  be  noted  that  this  program  was  developed 
using  data  that  had  been  sorted  according  to  activity.  In 
checking  to  insure  that  all  data  for  the  analysis  period 
have  been  read,  checking  the  next  200  records  appeared  to  be 
adequate.  However,  if  a  different  data  file  is  used,  200 
records  may  not  be  enough  to  insure  that  all  data  of 
interest  have  been  read.  This  value  may  be  changed  by 
altering  the  "data  look  /200/"  statement  at  the  beginning  of 
CKRD2.  It  should  also  be  noted  that  for  activities  in  which 
materials  are  used,  200  records  means  100  crew  day  cards, 
since  two  records  are  used  per  crew  day  card. 

When  control  returns  to  READ,  the  value  of  istat 
reported  by  CKRD2  is  checked.  If  istat=l,  the  record  is  too 
early,  so  it  is  skipped,  and  the  next  record  is  read.  If 
istat=2,  it  is  believed  that  all  of  the  data  for  the 
analysis  period  have  been  read,  and  control  returns  to  MAIN. 
If  istat=0,  the  record  is  for  the  correct  activity  and  date, 
so  the  data  file  is  backspaced  one  record,  and  a  subroutine 
to   read   and   tabulate   all   of   the   data  on  the  record  is 
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called.  If  the  record  contains  labor  information  (type  91), 
subroutine  RDLAB  (ReaD  LABor)  is  called.  If  It  contains 
material  information  (type  93),  subroutine  RDMAT  (ReaD 
MATerial)  is  called. 

RDLAB  reads  the  following  data  on  the  record: 

type  record  type  (should  be  91) 

act  activity  number 

class  highway  class  (INT  or  OSH) 

unit  management  unit  (subdistrict  number) 

date  date  (MMDDYY) 

route  highway  route  type  (I,  US,  or  SR) 

no  highway  route  number 

co  county  number 

crew  crew  size 

rh  regular  labor  hours 

ot  overtime  labor  hours 

ace  accomplishment 

The  values  of  crew,  regular  and  overtime  hours,  and 
accomplishment  are  checked  to  see  if  they  are  less  than  or 
equal  to  the  maximum  expected  values  specified  by  the  input 
parameters.  If  any  value  is  larger  than  expected,  an 
advisory  message  is  printed,  that  data  record  is  not 
tabulated,  and  control  is  returned  to  READ.  If  the  values 
are  not  larger  than  expected,  class  is  checked.  If  class  is 
neither   'int'   nor   'osh',   an  error  message  is  printed  and 
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control  returns  to  READ.  If  the  class  is  'lnt',  subroutine 
INTLAB  (INTerstate  LABor)  is  called.  If  the  class  is  'osh', 
subroutine  OSHLAB  (Other  State  Highway  LABor)  is  called. 

INTLAB  tabulates  Interstate  labor  information  with  two 
sets  of  variables,  one  for  the  Interstate  system,  and  a 
second  for  the  Total  (int  and  osh)  system.  The  following 
variables  are  used: 


lace       total   number   of   times   the    activity    was 
performed 

tacc       total  accomplishment 

tcrew      total  crew 

lrh        number   of   times   regular   labor   hours   were 
reported 

trh        total  number  of  regular  labor  hours  reported 

rhacc      total  accomplishment  when  regular  labor   hours 
were  reported 

lot        number  of   times   overtime   labor   hours   were 
reported 

tot        total  number  of  overtime  labor  hours  reported 

otacc      total  accomplishment  when  overtime  labor  hours 
were  reported 


The  same  tabulations  are  made  with  a  second  set  of  variables 
for  the  Total  system.  These  variables  are  named  as  those 
above  with  a  "t"  appended. 

After  tabulating  the  data,  control  returns  to  READ,  and 
the  next  record  is  read.  Subroutine  OSHLAB  is  similar  to 
INTLAB,  with  tabulations  being   made   for   the   Other   State 
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Highway  and  Total  systems. 

If  the  record  is  a  material  record  instead  of  a  labor 
record,  subroutine  RDMAT  (ReaD  MATerial)  is  called.  RDMAT 
is  similar  to  RDLAB  in  that  it  determines  which  highway 
class  the  record  is  for  and  calls  either  INTMAT  (INTerstate 
MATerial)  or  OSHLAB  (Other  State  Highway  MATerial)  to 
tabulate  the  data. 

RDMAT  reads  the  following  information  from  the  labor 
record: 

type  record  type  (should  be  93) 

act  activity  number 

class  highway  class  (INT  or  OSH) 

unit  management  unit  (subdistrict  number) 

date  date  (MMDDYY ) 

route  highway  route  type  (I,  US,  or  SR) 

no  highway  route  number 

co  county  number 

m(j)       material  code  for  the   j-th   material   on   the 
record  where  j=l,5 

q(j)       quantity  of  the  j-th  material  reported 

If  a  class  other  than  'int'  or  'osh'  is  read,  an  error 
message  will  be  printed,  and  control  returned  to  READ,  which 
will  read  the  next  record.  Otherwise,  subroutine  INTMAT 
will  be  called  for  a  interstate  record,  and  subroutine 
OSHMAT  will  be  called  for  an  Other  State  Highway  record. 
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INTMAT  checks  each  material,  m(j),  to  see  if  it  is  one 
of  the  materials  specified  by  the  input  parameters,  sm(k), 
where  k=l,nmat,  and  nmat  is  the  total  number  of  materials 
specified.  If  it  is  not  one  of  the  specified  materials,  a 
data  check  message  is  printed,  and  the  next  material  on  the 
record  is  checked.  If  it  is  one  of  the  specified  materials, 
the  quantity  is  checked  to  see  if  it  is  greater  than  the 
maximum  expected  quantity,  qmax(k),  as  specified  in  the 
input  parameter  file.  If  it  is  larger,  a  data  check  message 
is  printed,  and  the  next  material  on  the  record  is  checked. 
The  following  variables  are  tabulated  from  records  with 
acceptable  material  codes  and  quantities: 


lm  total  number  of  material  records  read  (NOTE: 
this  is  tabulated  for  all  material  records 
before  checks  are  made  on  the  material  codes 
and  quantities.) 

qsm#  total  amount  of  specified  material  t ,  where 
#=l,nmat,  and  nmat  is  the  total  number  of 
materials  specified  in  the  input  parameter 
file 

lsm#  total  number  of  times  specified  material  #  is 
used 

sm#ac  total  accomplishment  reported  when  specified 
material  #  was  used  (NOTE:  Accomplishment  is 
recorded  on  labor  records.  Because  labor 
records  are  followed  immediately  by  the 
corresponding  material  record,  this  value  is 
carried  to  this  subroutine  from  READ,  and  is 
equal  to  the  accomplishment  value  from  the 
last  labor  record  read.) 


The  same  tabulations  are  made  with  a  second  set  of  variables 
for  the  Total  (INT  +  OSH)  system.  These  variables  are  named 
as  those  above  with  a   "t"   appended.    Control   returns   to 
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READ,  and  the  next  data  record  is  read.  OSHMAT  parallels 
INTMAT,  making  the  same  tabulations  for  the  Other  State 
Highway  and  Total  systems. 

When  all  of  the  records  for  the  analysis  period  have 
been  read,  or  the  end  of  the  data  file  is  reached,  READ 
returns  to  the  MAIN  program.  MAIN  then  calls  subroutine 
OUTKEY  (OUTput  KEY)  to  print  an  explanation  of  the  program 
output.  MAIN  then  enters  the  data  analysis  portion  of  the 
program.  Three  parallel  subroutines,  CALINT  (CALculate 
INTerstate),  CALOSH  (CALculate  Other  State  Highway),  and 
CALTOT  (CALculate  TOTal)  perform  the  analysis  for  the 
Interstate,  Other  State  Highway,  and  Total  systems, 
respectively.  Only  the  systems  that  were  specified  by  the 
user  will  be  analyzed.  The  variables  intout,  oshout,  and 
totout,  specified  as  input  parameters,  will  be  equal  to  0  if 
analysis  for  that  system  is  not  to  be  done.  READ  checks 
these,  and  calls  the  appropriate  subroutines.  Also,  READ 
will  not  call  a  subroutine  for  a  system  for  which  there  are 
no  data  records  for  the  analysis  period.  Subroutine  CALINT 
will  be  explained.  The  only  differences  between  CALINT, 
CALOSH,  and  CALTOT  are  the  data  used. 

CALINT  first  sets  the  value  of  variable  iclass  to  0  to 
indicate  to  the  subroutines  it  calls  that  the  highway  class 
is  INT.  (Iclass  is  set  to  1  for  OSH ,  and  2  for  TOT.)  CALINT 
then  calls  subroutine  CALLAB  (CALculate  LABor)  to  calculate 
and   print   labor   information.    Next,   subroutine    CALMAT 
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(CALculate  MATerial)  is  called  to  calculate  and  print  the 
material  use  information.  Subroutine  COST  then  calculates 
and  prints  the  average  cost  summary,  and  subroutine  DSTSUM 
(District  and  State  SUMmary)  calculates  a  summary  of  labor, 
material,  and  cost  information  for  each  district  and  the 
state  as  a  whole.  If  a  deviation  analysis  is  to  be  done, 
subroutine  DEVCST  (DEViate  CoST)  is  called,  and  finally,  if 
any  bar  charts  are  to  be  printed,  the  appropriate 
subroutines  are  called. 

Using  information  tabulated   in   subroutine   INTLAB   or 
OSHLAB,  CALLAB  calculates  the  following  factors: 

aacc       average  accomplishment  ■  tacc  /  lace 

acrew      average  crew  size  ■  tcrew  /  lace 

arh        average  regular  hours  per  crew  day  when 
regular  hours  are  used  ■  trh  /  lrh 

oarh       overall  average  regular  hours  per  day  =  trh  / 
lace  (NOTE:  This  currently  is  not  printed  in 
output.  11/14/83  ) 

arhacc     average  accomplishment  when  regular  are 
reported  =  rhacc  /  lrh 

frh        fraction  of  time  regular  hours  were  reported  ■ 
lrh  /  lace 

prh        regular  hour  productivity  ■  trh  /  rhacc 

aot        average  overtime  hours  per  crew  day  when 
overtime  hours  are  reported  =  tot  /  lot 

oaot       overall  average  overtime  hours  per  crew  day  = 
tot  /  lace  (NOTE:   This  currently  is  not 
printed  in  output.  11/14/83  ) 

arhacc     average  total  accomplishment  when  overtime 
hours  are  reported  =  otacc  /  lot 
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fot        fraction  of  time  overtime  hours  were  reported 
=  lot  /  lace 

pot        overtime  productivity  ■  tot  /  otacc 

pth        total  labor  productivity  =  (trh  +  tot)  /  tacc 


NOTE:  In  making  the  above  calculations,  0.0000000001  is 
added  to  each  denominator  to  avoid  the  possibility  of  a 
floating  divide  by  zero  error. 


When  the  quantities  have  been  calculated,  subroutine 
PRLAB  (PRint  LABor)  is  called  to  print  the  results,  and 
control  is  returned  to  CALINT,  which  calls  subroutine  CALMAT 
(CALculate  MATerial  information). 

CALMAT  uses  data  tabulated  in  INTMAT  or  OSHMAT  to 
calculate  the  following  factors: 


fsm#  fraction  of  time  specified  material  #  is  used 
-  lsm#  /  lace,  where  #=»1,6 

asm#  average  quantity  of  specified  material  #  used 
per  crew  day  when  that  material  is  reported  = 
qsm#  /  lsm# 

psm#  productivity  with  specified  material  #  =  qsm# 
/  sniac 


NOTE:  In  calculating  the  above  factors,  0.0000000001  is 
added  to  each  denominator  to  avoid  the  possibility  of  a 
floating  divide  by  zero  error. 


CALMAT  calls  subroutine  PRMAT  (PRint  MATerial  factors) 
to  print  the  factors  just  calculated,  and  control  returns  to 
CALINT,  which  then  calls  subroutine  COST  to  calculate 
average  cost  factors. 
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COST  uses  information  calculated  in  other  routines  to 
determine  the  average  cost  per  accomplishment  unit  for  each 
subdistrict.  The  cost  is  for  labor  and  materials  only,  and 
is  calculated  as  follows: 


acrh       average  cost  for  regular  labor  =  (lace  *  frh  * 
arh  *  crh)  /  tacc 

acot       average  cost  for  overtime  labor  ■  (lace  *  fot 

*  aot  *  cot)  /  tacc 

acsm#      average  cost  for  specified  material  #  =  (lace 

*  fsm#  *  asm#  *  csm(#))  /  tacc,  where  #=1,6 
and  csm(#)=unit  cost  for  specified  material  // 


NOTE?  In  the  above  calculations,  0.0000000001  is  added 
to  each  denominator  to  avoid  a  possible  floating  divide 
by  zero  error. 


aclab      average  cost  for  labor  ■  acrh  +  acot 

acmat      average  cost  for  all  materials  =  acsml  +  acsi2 
+  ...  +  acsm6 

actot      average  total  cost  =  aclab  +  acmat 


COST  then  calls  subroutine  PRCOST  (PRint  COST)  to  print 
the  cost  figures  just  calculated.  Then  COST  returns  to 
CALINT,  which  calls  subroutine  DSTSUM. 

DSTSUM  calls  five  subroutines  to  calculate  and  print 
district  and  state  summaries  for  labor,  material,  and  cost. 
First,  DSTLAB  (District  and  STate  LABor)  uses  subdistrict 
summary  data  calculated  in  other  subroutines  to  calculate 
the  following  district  and  state  summary  information: 
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ldacc      total  number  of  times  activity  was  performed 
in  the  district  =  sum  of  lace  for  each 
district 

dtacc      district  total  accomplishment  ■  sum  of  tacc 
for  each  district 

dcrew      total  of  crew  sizes  in  a  district  ■  sum  of 
tcrew  for  each  district 

ldrh       total  number  of  times  regular  labor  hours  were 
reported  =■  sum  of  lrh  for  a  district 

dtrh       district  total  regular  hours  used  =  sum  of  trh 
for  a  district 

drhac      district  accomplishment  when  regular  hours 
were  reported  =  sum  of  rhacc  for  a  district 

Idot       same  a  ldrh  but  with  overtime  hours 

dtot       same  as  dtrh  but  with  overtime  hours 

dotac      same  as  drhac  but  with  overtime  hours 

lsacc      total  number  of  times  activity  was  performed 
in  the  state  ■  sum  of  all  lace  values 

tsacc      state  total  accomplishment  ■  sum  of  all  tacc 
values 

screw      total  of  crew  sizes  in  the  state  =  sum  of  all 
tcrew  values 

lsrh       total  number  of  times  regular  labor  hours  were 
reported  in  the  state  =  sum  of  all  lrh  values 

strh       state  total  regular  hours  used  ■  sum  of  all 
trh  values 

srhac      state  accomplishment  when  regular  hours  were 
reported  =  sum  of  all  rhacc  values 

lsot       same  as  lsrh  but  with  overtime  hours 

stot       same  as  strh  but  with  overtime  hours 

sotac      same  as  srhac  but  with  overtime  hours 


The  following  factors  are  calculated  for  each  district: 
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adacc      average  district  accomplishment  ■  dtacc  /ldacc 

adcrw      average  district  crew  size  ■  dcrew  /ldacc 

adrh       average  district  regular  hours  ■  dtrh  /ldrh 

adrac      average  district  accomplishment  when  regular 
hours  are  reported  =  drhac  /  ldrh 

dfrh       fraction  of  the  time  regular  hours  were 
reported  =  ldrh  /  ldacc 

dprh       district  regular  hour  productivity  =  dtrh  / 
drhac 

adot       average  district  overtime  =  doth  /  ldot 

adoac      average  accomplishment  when  overtime  labor  is 
reported  =  dotac  /  ldot 

dfot       fraction  of  the  time  overtime  labor  was 
reported  =  ldot  /  ldacc 

dpot       overtime  productivity  ■  dtot  /  dotac 
Similar  factors  are  calculated  for  the  state  as  a  whole: 


asacc      average  state  accomplishment  =  tsacc  /  lsacc 

ascrw      average  state  crew  size  =  screw  /  lsacc 

asrh       average  state  regular  labor  hours  =  strh  / 
lsrh 

asrac      average  accomplishment  when  regular  hours  are 
reported  =  srhac  /  lsrh 

sfrh       fraction  of  the  time  regular  hours  were 
reported  =  lsrh  /  lsacc 

sprh       state  regular  hour  productivity  =  strh  /  srhac 

asot       average  state  overtime  =  soth  /  lsot 

asoac      average  accomplishment  when  overtime  labor  is 
reported  =  sotac  /  lsot 

sfot       fraction  of  the  time  overtime  labor  was 
reported  =  lsot  /  lsacc 
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spot  overtime    productivity    -    stot    /    sotac 


NOTE:  In  the  above  calculations,  0.0000000001  is  added 
to  each  denominator  to  avoid  a  possible  floating  divide 
by    zero    error. 


Next,  subroutine  DSTMAT  (District  and  STate  MATerial) 
calculates  the  material  summary  for  each  district  and  the 
state  as  a  whole.  Using  information  calculated  in  other 
subroutines,     the    following    variables    are    tabulated: 


dqsm#  total    amount    of    specified    material    //    used    in    a 

district    ■    sum    of    qsm#    for    each    district    where 
#-1,6 

ldsm//  total    number    of    times    specified    material    //    was 

used    in    the    district    ■    sum    of    Ism//    for    each 
district 

dm#ac  total    district    accomplishment    when    specified 

material    //    was    used    ■    sum    of    smlac    for    each 
district 

sqsm//  total    state    amount    of    specified    material    // 

used    ■    sum    of    all    qsm//    values 

lssm//  total    number    of    times    specified    material    //   was 

used    in    the    state    =    sum    of    all    Ism//    values 

sacm//  total    state    work    accomplished    when    specified 

material    //    was    used    =    sum    of    all    siiac    values 


The    following    factors    are    calculated    for    each    district: 

dfsm//  fraction    of    time    specified    material    #    was    used 

■    ldsm//    /ldacc 

dasm//  average    quantity    of    specified    material    //    used 

per    crew    day    when    that    material    was    used    = 
dqsm//    /    ldsm// 

dpsm//  productivity    with    specified    material    //    =    dqsm// 

/    dm//ac 
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Similar  calculations  are  made  for  the  state  as  a  whole 


sfsm#      fraction  of  time  specified  material  //  was  used 
=  lssml  /  lsacc 

sasm#      average  quantity  of  specified  material  //  used 
per  crew  day  when  that  material  was  used  = 
sqsm#  /  lssm# 

spsm#      productivity  with  specified  material  #  =  sqsm# 
/  sacm# 


NOTE:  In  calculating  the  above  factors,  0.0000000001  is 
added  to  each  denominator  to  avoid  a  possible  floating 
divide  by  zero  error. 


Subroutine  DSTCST  (District  and  STate  COST)  uses 
information  from  other  subroutines  to  calculate  district  and 
state  cost  summaries.  Cost  is  calculated  as  follows: 
resource  cost  per  unit  of  accomplishment  =  (number  of  times 
activity  was  performed  *  fraction  of  the  time  the  resource 
was  used  *  average  quantity  of  resource  when  it  was  used  * 
unit  cost  of  resource)  /  total  accomplishment. 

The  following  factors  are  calculated  for  each  district: 


dacrh      average  cost  for  regular  labor  =  (ldacc  *  dfrh 

*  adrh  *  crh)  /  tdacc 

dacot  average    cost    for    overtime    labor    =    (ldacc    * 

dfot    *    adot    *    cot)    /    tdacc 

dacsm#  average    cost    for    specified    material    #    =    (ldacc 

*  dfsm#    *    dasm//    *    csm(#))    /    tdacc,    where    #  =  1,6 


NOTE:  In  the  above  calculations,  0.0000000001  is  added 
to  each  denominator  to  avoid  a  possible  floating  divide 
by    zero    error. 
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daclab     average  cost  for  labor  =  dacrh  +  dacot 

dacmat     average  cost  for  all  materials  =  dacsml  + 
dacsm2  +  . . .  +  dacsm6 

dactot     average  total  cost  for  labor  and  materials  = 
daclab  +  dacmat 


Similar  calculations  are  made  for  the  state  as  a  whole: 

sacrh      average  cost  for  regular  labor  =  (lsacc  *  sfrh 

*  asrh  *  crh )  /  tsacc 

sacot      average  cost  for  overtime  labor  =  (lsacc  * 
sfot  *  asot  *  cot)  /  tsacc 

sacsii     average  cost  for  specified  material  §    =    (lsacc 

*  sfsm#  *  sasm#  *  csm(#))  /  tsacc,  where  #=1,6 


NOTE:  In  the  above  calculations,  0.0000000001  is  added 
to  each  denominator  to  avoid  a  possible  floating  divide 
by  zero  error. 


saclab     average  cost  for  labor  ■  sacrh  +  sacot 

sacmat     average  cost  for  all  materials  =  sacsml  + 
sacsm2  +  ...  +  sacsm6 

sactot     average  total  cost  for  labor  and  materials  = 
saclab  +  sacmat 


Next,  subroutine  PDIST  (Print  DISTrict)  is  called  to 
print  the  district  labor,  material,  and  cost  summary,  and 
subroutine  PSTATE  (Print  STATE)  is  called  to  print  the  state 
labor,  material,  and  cost  summary. 

If  a  deviation  analysis  is  to  be  performed,  CALINT 
calls  subroutine  DEVCST  (DEViation  by  CoST).  DEVCST  takes 
the  average  total  cost  for  each  subdistrict,  calculates  the 
average  and  standard  deviation,  and  calculates  an  upper  and 
lower  limit  based  on  the  average  plus  or  minus   a   specified 
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number       of       standard       deviations.  The       number       of    standard 

deviations  is  specified  by  the  analyst  as  input  parameter 
sdev.  A  subdistrict  is  identified  as  being  deviate  if  its 
average  cost  falls  outside  these  limits.  A  list  of  the 
deviate  units  and  their  average  cost  figures  is  printed 
along  with  the  overall  average,  standard  deviation,  and 
limits. 

Finally,  CALINT  prints  the  bar  charts  that  have  been 
specified  by  the  analyst.  Up  to  six  charts  may  be  printed. 
For  each  chart,  there  is  an  input  parameter,  the  value  of 
which  is  zero  if  the  chart  is  not  to  be  printed  or  one  if  it 
is  to  be  printed.  These  variables  are  icost,  ihours,  itacc, 
iavacc,  and  icrew  for  charts  of  average  cost,  average  labor 
hours,  total  accomplishment,  average  accomplishment,  and 
average  crew  size,  respectively.  The  variable  to  specify  a 
chart  of  the  average  quantity  of  one  of  the  materials  is 
imat,  and  it  has  an  integer  value  of  zero  through  six.  Zero 
indicates  that  no  material  chart  is  to  be  printed.  Another 
value  indicates  that  a  chart  for  that  specified  material  is 
to  be  printed.  For  example,  an  imat  value  of  three  means 
print  a  bar  chart  of  average  material  use  per  accomplishment 
for  the  third  material  specified  in  the  input  parameter 
file. 


The  value  of  each  chart  parameter  is  tested,  and  if  it 
is  other  than  zero,  variable  ichart  is  given  an  integer 
value    from    0    to    5.       Ichart=0    for    a    cost    chart;     ichart=l       for 
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a  labor  chart;  ichart=2  for  a  total  accomplishment  chart; 
ichart=3  for  an  average  accomplishment  chart;  ichart=A  for 
an  average  crew  size  chart,  and  ichart=5  for  a  material 
quantity  chart.  Ichart  tells  the  bar  chart  routine  what 
type  the  chart  is,  and  thus  which  heading  to  print.  For 
each  chart  to  be  printed,  CALINT  calls  subroutine  STDEV 
(STandard  DEViation)  to  calculate  the  average  and  standard 
deviation  of  the  values  to  be  plotted,  and  a  set  of  limits 
used    in    the    chart: 

vmax  maximum    value    of    the    data    being    plotted 

avg  average 

sd  standard  deviation 

am3  avg  -  (3  *  sd) 

am2  avg  -  (2  *  sd) 

ami  avg  -  (1  *  sd) 

apl  avg  +  (1  *  sd) 

ap2  avg  +  (2  *  sd) 

ap3  avg  +  (3  *  sd) 

CALINT  then  calls  subroutine  BAR  to  print  the  bar  chart. 

BAR  first  prints  the  heading  for  the  bar  chart. 
Each  chart  is  slightly  different  in  format,  so  there  is 
a  subroutine  to  print  the  top  portion  of  each  chart. 
These  routines  are  CSTTOP  (CoST  TOP),  HRSTOP  (HouRS 
TOP),  TACTOP  Total  Accomplishment  TOP),  AACTOP  (Average 
Accomplishment   TOP),   CRWTOP   (CReW   TOP),   and   MATTOP 
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(MATerial  TOP),  for  cost,  labor  hours,  total 
accomplishment,  average  accomplishment,  crew  size,  and 
material  use,  respectively.  The  "top"  routines  print 
the  chart  page  heading,  chart  title,  and  column  headings 
for  the  figures  listed  at  the  right  side  of  each  chart. 
At  the  top  and  bottom  of  the  chart,  a  line  is  printed 
indicating  the  position  of  the  average  and  limits,  am3 , 
am2 ,  ami,  ap 1 ,  ap2,  and  ap3.  However,  the  chart  is 
scaled  according  to  the  maximum  value,  and  some  of  the 
limits  may  fall  outside  the  range  of  the  chart.  There 
are  16  possibilities  for  what  set  of  limits  falls  within 
the  chart  range,  each  one  requiring  a  different  format. 
The  appropriate  format  is  determined,  and  noted  by 
setting  the  variable  wcode  equal  to  an  integer  from  1  to 
16.  The  chart  line  indicting  the  limits  is  then 
printed.  The  method  for  determining  the  appropriate 
format  is  explained  in  the  comments  at  the  beginning  of 
BAR,  and  is  not  repeated  here. 

Next,  BAR  calls  a  subroutine  to  print  the  37  bars 
of  the  chart.  Along  with  each  bar,  the  value  the  bar 
represents  is  printed  on  the  right  side  of  the  chart 
alongside  the  values  of  three  other  factors,  which  vary 
from  chart  to  chart.  Because  the  charts  differ 
slightly,  different  formats  are  required  for  printing 
the  bars  and  factor  values.  BAR  calls  subroutine 
BARCST,   BARHRS,   BARTAC,    or   BARAAC  to  print  the  bars. 
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BARCST  prints  the  bars  for  the  cost  chart;  BARHRS  prints 
the  bars  for  the  labor  hours,  crew  size,  and  material 
use  charts;  BARTAC  prints  the  bars  for  the  total 
accomplishment  chart,  and  BARAAC  prints  the  bars  for  the 
average  accomplishment  chart.  Finally,  BAR  repeats  the 
line  indicating  the  position  of  the  limits  at  the  bottom 
of  the  chart,  and  prints  a  legend. 

At  this  point,  CALINT  returns  to  MAIN.  If  analyses 
for  the  OSH  and/or  TOTAL  systems  are  to  be  done,  CALOSH 
and/or  CALTOT  are  called.  CALOSH  is  parallel  to  CALINT, 
performing  the  same  calculations  with  Other  State 
Highway  data.  CALTOT  is  also  parallel,  performing  the 
calculations  with  Total  system  data.  The  program  then 
ends  . 
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APPENDIX    B 


COMPUTER  CODE  LISTING  OF  PROGRAM  RMPS 


161 


c******************************************** *************************** 

c*  ** 

c*  Program  RMPS  —  Routine  Maintenance  Productivity  Summary  ** 

c*  ** 

c*  Written  by:     V.  Alan  Sanderson  ** 

c*  Graduate  Research  Assistant  ** 

c*  School  of  Civil  Engineering  ** 

c*  Purdue  University  ** 

c*  West  Lafayette,    Indiana  ** 

c*  January,    1984  ** 

c*  ** 

c*  This  program  was  written  as  part   of  a  study   of  productivity   of  ** 

c*  routine  highway   maintenance   in  the   Indiana   Department   of   High-  ** 

c*  ways.  ** 

c*  The  study  was   conducted  and  funded  as   an  HPR  Part   II   Study   in  ** 

c*  cooperation  with   the   Indiana  Department   of  Highways   and   the  ** 

c*  Federal  Highway  Administration.  ** 

c*  Consult   the  user's   manual  for  an  explanation   of    the  program  and  ** 

c*  its  use.  ** 

c*  ** 

c*  ** 
c**************************************** ******************************* 

c*  ** 

c*  MAIN  ** 

c*  ** 

c*  This  program  will  calculate  various  factors  summarized  from  the  ** 

c*  analysis   of   routine  maintentance   crew  day   card  records.  ** 

c*  ** 

c*  Consult   the  user's  manual  for  an  explanation  of   the  program  ** 

c*  structure  and  calculation  procedure.  ** 

c*  ** 

c*  This    routine   controls    the  program,    switching  among  the  ** 

c*  various   sections.      First    input   parameters   are    read  and   checked  ** 

c*  for  errors,    then  the   data  are   read  and  tabulated,    and  finally  ** 

c*  the   data  are   summarized,    and   tables   and   charts   of   various  ** 

c*  factors  are  printed.  ** 

c*  ** 

c*  This    routine  also  initializes   several  of    the  program  variables  ** 

c*  to  zero.      The   meanings    of    the   variables   are   not   explained  here,  ** 

c*  because  they   are   explained  in  the   various   subroutines.  ** 

c*  ** 

c*  ** 
c*********************************************************************** 
c**************************************^ 
c 

integer  sm,tcrewi,tcrewo, trhi, trho, toti, toto, tcrewt, trht, tott , 
*  oshout , tot out 

character  dsm*40 ,usm*20 ,dact*40 ,uact*20 
c 

c  The  state  has   37   subdistricts  with   numbers    ranging  up   to   66; 

c  thus,   variables    that  are   tabulated  for  each  subdistrict   are 
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c  dimensioned  to  66. 

c  "tacci(12)"  is  the  value  of  variable  tacci  for  subdistrict  1200, 

c  "tacci(13)n  is  the  value  for  subdistrict  1300,  and  so  on. 

dimension  sm( 6 ) , csm( 6 ) , tacci ( 66 ) , tacco ( 66 ) , tcrewi ( 66 ) , tcrewo ( 66 ) , 

*  trhi(66),trho(66),toti(66),toto(66),rhacci(66), 

*  rhacco ( 66 ) , otacci ( 66 ) , otacco ( 66 ) , lacci (66),lacco(66), 

*  lrhi(66),lrho(66),loti(66),loto(66),qsmli(66),qsmlo(66), 

*  qsm2i(66),qsm2o(66),qsm3i(66) ,qsm3o(66) ,qsm4i(66) , 

*  qsm4o(66),qsm5i(66),qsm5o(66),qsm6i(66),qsm6o(66), 

*  lsmli(66),lsmlo(66),lsm2i(66),lsm2o(66),lsm3i(66), 

*  lsm3o(66),lsm4i(66),lsm4o(66),lsm5i(66),lsm5o(66), 

*  lsm6i(66),lsm6o(66),lmi(66),lmo(66),qmax(6), 

*  smlaci(66),smlaco(66),sm2aci(66),sm2aco(66), 

*  sm3aci ( 66 ) , sm3aco ( 66 ) , sm4aci ( 66 ) , sm4aco ( 66 ) , 

*  Sm5aci(66),sm5aco(66),sm6aci(66),sm6aco(66), 

*  dsm(6),usm(6) 

dimension  tacct (66 ) , tcrewt ( 66 ) , trht ( 66 ) , tott ( 66 ) , rhacct ( 66 ) , 

*  otacct(66),lacct(66),lrht(66),lott(66),qsmlt(66), 

*  qsm2t(66),qsm3t(66),qsm4t(66),qsm5t(66),qsm6t(66), 

*  Ismlt(66),lsm2t(66),lsm3t(66),lsm4t(66),lsm5t(66), 

*  lsm6t ( 66 ) , lmt ( 66 ) , smlact ( 66 ) , sm2act ( 66 ) , sra3act ( 66 ) , 

*  sm4act ( 66 ) , sm5act ( 66 ) , sm6act ( 66 ) 
c 

c     Unit  1  is  the  file  contining  program  control  parameters 

c      which  tell  the  program  what  activity  to  analyzed 

c      what  the  analysis  period  is,  and  what  type  of  output 

c      to  provide. 

c     Unit  2  is  the  data  file.  This  contains  data  from  crew 

c      day  cards. 

c  Unit  3  is   the  output  file. 

open(unit=l ,f ile='param' ,status='old' ,f orm='f ormatted' ) 

open(unit»2,file= 'data '.status- 'old ',form= 'formatted') 

open(unit=3,file='rpt',status=»'new',form=' formatted') 

rewind   1 

rewind  2 

rewind   3 
c 
c  Initialize  variables   to  0. 

jl=ll 

j2=16 
10       do   11    J-J1.J2 

tacci (j)=0. 

tacco (j)=0. 

tacct (j)=0. 

tcrewi (j)=0 

tcrewo ( j)=0 

tcrewt (j)=0 

trhi(j)=0 

trho(j)=0 

trht(j)=0 

toti(j)=0 

toto(j)=0 

tott(j$=0 
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rhacci( j)=0. 

rhacco( j)=0. 

rhacct( j)=0. 

otacci( j)=0. 

otacco( j)=0. 

otacct( j)=0. 

lacci(j)=0 

lacco( j)=0 

lacct(j)=0 

lrhi(j)=0 

lrho(j)=0 

lrht(j)=0 

loti(j)=0 

loto(j)=0 

lott(j)=0 


qsmli(j 

qsmlo( j 

qsmlt(j 

qsm2i(j 

qsm2o(j 

qsm2t(j 

qsm3i(j 

qsm3o(j 

qsm3t( j 

qsm4i(j 

qsm4o( j 

qsm4t(j 

qsm5i(j 

qsm5o( j 

qsm5t(j 

qsm6i( j 

q  sm6o ( j 

qsm6t(j 

lsmli(j 

lsmlo( j 

lsmlt(j 

lsm2i(j 

lsm2o( j 

lsm2t(j 

lsm3i(j 

lsm3o( j 

lsm3t( j 

lsm4i( j 

lsm4o( j 

lsm4t( j 

lsm5i(j 

lsm5o( j 

lsm5t(j 

lsm6i( j 

lsm6o( j 

lsm6t( j 

lmi(j)=0 

lmo(j)=0 


)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)=0. 

)-0 

)=0 

)=0 

)-0 

)=0 

)=0 

)=0 

)=0 

)=0 

)=0 

)=o 
)=o 

)=0 

)=o 
)=o 

)=0 
)=0 

)=o 
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lmt(j)=0 

11  continue 

if (jl.eq.ll)go  to  12 
if(jl.eq.21)go  to  13 
if(jl.eq.31)go  to  14 
if(jl.eq.41)go  to  15 
if(jl.eq.51)go  to  16 
if(jl.eq.61)go  to  17 

12  jl=21 
j2=26 

go  to  10 

13  jl=31 
j2=36 

go  to  10 

14  jl=41 
j2=47 

go  to  10 

15  jl=51 
j2=56 

go  to  10 

16  jl=61 
j2=66 

go  to  10 

17  continue 
c 

c     Read  program  control  parameters 

call  param(ib, iact , nmat , sm, csm, q max , crh , cot , maxcr , maxhr , a cmax , 

*  ibm, iby , iem, iey , idev, sdev, dsm, usm, dact , uact , int  out 

*  oshout , totout , icos  t , ihours , itacc , iavacc , icrew , imat ) 
c 

c     Position  data  file  to  specified  beginning  record,  ib 
c       if  other  than  1 

if(ib.eq.l)go  to  170 

call  begin(ib.i) 
170     continue 
c 

c  Read  data 

c       Subroutine  READ  will  read  all  the  data  for  the  given 
c      activity  and  analysis  period  before  returning  to 
c       MAIN. 

call  read (iact, nmat ,sm,qmax, maxcr , maxhr, acmax, ibm, iby,  iem,  iey, 

*  llabi,llabo,tacci, 

*  tacco , tcrewi , tcrewo, trhi, trho, toti , toto, rhacci , 

*  rhacco,otacci,otacco,lacci,lacco,lrhi,lrho,loti, 

*  lot o, lmat i , lmato , qsmli , qsmlo , qsm2i , qsm2o , qsm3i , qsm3o , 

*  qsm4i , qsm4o , qsm5i , qsm5o , qsm6i , qsm6o , lsml i , lsmlo , lsm2  i , 

*  lsm2o ,  lsm3i , lsm3o , lsm4i , lsm4o , lsm5i , lsm5o , lsm6i , lsm6o , 

*  lmijlmo, 

*  smlaci , smlaco , sm2aci , sm2aco , sm3aci , sm3aco , 

*  sm4aci , sm4aco , sm5aci , sm5aco , sm6aci , sm6aco , 

*  llabt , tacct , tcrewt , trht , tott , rhacct , otacct , lacct , 

*  lrht, lot t, lmat t,qsmlt,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t, 

*  lsmlt, lsm2t , lsm3t, lsm4t , lsm5t, lsm6t , lmt , smlact , 
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*         sm2act , sm3act , sm4act , sm5act , sm6act ) 
c 
c     Print  a  page  explaining  the  output 

call  outkey 
c 

c  In  some   cases,    no  work  will  have   been  done   for   the  analysis 

c  period.      If   this   is    the   case,    there  is  no  need  to   call  the 

c  routines    to  calculate  the  various  factors   of   interest, 

c  To  check   this,    sum  the  number   of   crew  days   reported 

c  (lace  values)  and  check  before   calling  each  calculation 

c  routine. 

c  Laccit=total  number  of    interstate   (int)   crew   day   cards    read 

c  Laccot=total  number  of   other  state  highway   (osh)   crew 

c  day  cards   read 

c  Lacctt=total  number  of   total(int  +  osh)  crew  day  cards   read 

jl=10 

j2=16 

18  do   19   j=jl,j2 
laccit=laccit+lacci ( j ) 
laccot=laccot+lacco( j) 
lacctt  =»lacctt+lacct ( j ) 

19  continue 

if (jl.eq.lO)go  to  30 
if(jl.eq.20)go  to  31 
if(jl.eq.30)go  to  32 
if(jl.eq.40)go  to  33 
if(jl.eq.50)go  to  34 
if(jl.eq.60)go  to  35 

30  jl=20 
j2=26 

go  to  18 

31  jl=30 
j2=36 

go  to  18 

32  jl=40 
j2=47 

go  to  18 

33  jl=50 
j2=56 

go  to  18 

34  jl=60 
j2=66 

go  to  18 

35  continue 
c 

c     Calculate  factors  and  print  results  for  each  subdistrict 
c     If  intout=0,  analysis  for  the  interstate  system  should 
c       not  be  done.   Intout  is  one  of  the  control  parameters 
c       read  by  PARAM. 

if (intout. eq.0)go  to  20 
c 

c     Check  to  see  if  zero  work  was  reported.   If  so,  skip 
c       calculation  routine  and  print  message. 
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c       Laccit  is  the  total  number  of  crew  day  card  records 
c      Included  in  the  analysis  of  the  interstate  system. 

if(laccit.gt.O)go  to  23 

write(3,900)iact,dact,ibm,iby,iem,iey 

900  format (lhl ,39hROUTINE  MAINTENANCE   REPORT   FOR  ACTIVITY, lx, 

*  i3,2x,a40,5x,4hFROM,lx,i2,lh-,i2,lx,7hTHROUGH,lx, 

*  i2,lh-,i2) 
write(3,901) 

901  format (//,43hN0  INSTANCES  OF  THIS  ACTIVITY  WERE  REPORTED ,lx, 

*  52hFOR  THE  INTERSTATE  SYSTEM  DURING  THE  ANALYSIS  PERIOD) 
go  to  20 

23  continue 
c 

c     Call  subroutine  CALINT  to  calculate  and  print  the  factors  for 
c      the  interstate  system. 

call  calint(iact,ibm,iby,iem,iey,nmat,sm,csm,crh,cot,llabi, 

*  tacci , tcrewi , t rhi , toti , rhacci , otacci , lacci, 

*  lrhi,loti,lmati,qsmli,qsm2i,qsm3i,qsm4i,qsm5i, 

*  qsm6i , lsmli , lsm2i , lsm3i , lsm4i , lsm5i , lsmoi , lmi, 

*  idev, sdev, smlaci , sm2aci , sm3aci , sm4aci , sm5aci , sm6aci , 

*  dsm.usm, dact ,uact , icost , ihours , itacc,iavacc , icrew, imat ) 

20  continue 
c 

c  Check  if  analysis  for  the  other  state  highway  system  should 

c  be  done.      If   oshout=0,    it  shouldn't   be   done. 

if (oshout.eq.O)go   to   21 
c 

c     Check  to  see  if  there  was  no  work  reported  during  the 
c      analysis  period.  Laccot  will  equal  zero  if  no  work  was 
c      reported,  and  the  calculation  routine  should  be  skipped. 

if (laccot. gt.0)go  to  24 

write(3,900)iact,dct,ibm,iby,iem,iey 

write(3,902) 

902  format(//, 51hN0  INSTANCES  OF  THIS   ACTIVITY  WERE   REPORTED   FOR  THE, 

*  lx,53hOTHER  STATE   HIGHWAY   SYSTEM  DURING   THE   ANALYSIS   PERIOD) 
go   to  21 

24  continue 
c 

c     Call  subroutine  CALOSH  to  calculate  and  print  factors  for 
c       the  other  state  highway  system. 

call  calosh(iact , ibm, iby , iem, iey , nmat , sm, csm, crh , cot , 11a bo , 

*  tacco, tcrewo,trho, toto,rhacco,otacco,lacco, 

*  lrho,loto,lmato,qsmlo,qsm2o,qsm3o,qsm4o,qsm5o, 

*  qsm6o , lsmlo , lsm2o , lsm3o , lsm4o , lsm5o , lsm6o , lmo, 

*  idev, sdev, smlaco , sm2aco , sm3aco , sm4aco , sm5aco , sm6aco , 

*  dsm.usm, dact, uact, icost, ihours, itacc,Iavacc, icrew, imat ) 

21  continue 
c 

c     Check  if  analysis  should  be  done  for  the  total  (int  +  osh) 
c       system.  Totout=0  if  analysis  should  not  be  done. 

if (totout.eq.O)go  to  22 
c 
c     Check  if  no  work  was  reported  for  the  period.   If  lacctt=0, 
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c       no  work  was  reported,  and  the  calculation  routine  should 
c       be  skipped. 

if (lacctt.gt.O)go  to  25 

write(3,900)iact,dact,ibm,iby,iem,iey 
write(3,903) 
903      format(//,51hN0   INSTANCES  OF  THIS   ACTIVITY  WERE   REPORTED   FOR  THE 

*  lx,51hT0TAL    (INT  +  OSH)    SYSTEM  DURING   THE   ANALYSIS   PERIOD) 
go   to  22 

25  continue 
c 

c  Call  subroutine   CALTOT   to   calculate  and  print   factors   for 

c  the  total(int  +  osh)   system. 

call  caltot(iact,ibm,iby,iem,iey, nmat, sm,csm,crh, cot, 11a bt, 

*  tacct.tcrewt, trht,tott,rhacct,otacct,lacct, 
lrht » lott » lmatt , qsml t , qsm2t , qsm3t , qsm4t , qsm5t , 

*  qsm6t , lsml t , lsm2t , lsm3t , lsm4 t , lsm5t , lsmot , lmt , 
idev, sdev, smlact , sm2act , sm3act , sm4act , sm5act , sm6act , 

*  dsm,usm,dact,uact,icost,ihours,itacc,iavacc,icrew,imat ) 
22   continue 

c 

c  The  program  stops  here  after  making  all  requested  calculations, 

c  or  if  no  work  was   reported  for  the  analysis   period, 

stop 
end 

subroutine  param(ib,iact,nmat,sm, csm,qmax,crh,cot,maxcr ,maxhr, 
k  acmax,ibm,iby,iem,iey, idev, sdev, 

dsm,usm, dact ,uact , int out , oshout , totout , 

*  icost,ihours,itacc,iavacc,icrew,imat) 

c*  ** 

c*  PARAM  ** 

c*  Subroutine  PARAM  reads  the  parameters  defining  what  activity  is  ** 

c*  to  be  analyzed,  its  associated  materials,  the  dates  for  which   ** 

c*  the  analysis  is  to  be  conducted,  and  the  beginning  and  ending   ** 

c*  data  records  of  interest  (can  be  used  to  skip  data  at  beginning  ** 

of  file).  ** 


* 


c* 


** 


List  of   variables,    type,    definition:  ** 


c*     ib     int 


** 


beginning  record  (first  to  be  read  from  ** 

c*                                   data  file)  ** 

c*  iact    int     IDOH  activity  code  #  ** 

c*  dact    char    Activity  name  (may  be  up  to  40  characters)  ** 

c*  uact    char    Activity  unit  of  measure  (up  to  20  characters)** 

c*  nmat    int     Number  of  materials  associated  with  activity  ** 

c*                     (maximum  of  six)  ** 

c*  sm(k)   int     IDOH  code  number  for  kth  specified  material  ** 

c*                     (k  ranges  from  0  to  nmat.   If  nmat=0,  no  ** 

c*                      sm(k)  values  are  entered)  ** 

c*  csm(k)  real    Unit  cost  for  kth  specified  material  ** 

c*  qmax(k)  real    Maximum  expected  quantity  of  kth  material  ** 

c                      (This  value  is  used  to  check  for  typo-  ** 
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c* 

c* 

dsm(k) 

char 

c* 

c* 

usm(k) 

char 

c* 

c* 

crh 

real 

c* 

cot 

real 

c* 

maxcr 

inte 

c* 

c* 

maxhr 

int 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 


c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 


c* 
c* 
c* 


acmax   real 
ibm     Int 
iby     int 


iem 
ley 


int 
int 


idev  int 

int out  int 

oshout  int 

tot out  int 

icost  int 

ihours  int 

itacc  int 

iavacc  int 

icrew  int 

imat  int 


graphical  errors   in   the   crew   day   card  ** 

data.      If   a  quantity   of    the  kth  specified     ** 
material  is   read  that   is   greater  than 
qmax(k),    that   record  will  not   be  used 
in  the  analysis. 
Description  of  kth  specified  material 

(Up   to  40  characters) 
Unit   of  measure  for  kth  specified  material 

(Up   to  20  characters) 

Average  labor  wage  for  regular-time  hour 

Average   labor  wage  for  overtime  hour 

Maximum  expected  crew  size   (Used  to   check  for   ** 

(for  typographical  errors   as  with  qmax(k)       ** 

Maximum  expected  number  of   labor  hours    (Used 

to   check  for  typographical  errors.     Both 

the  number  of   regular  and  overtime  hours 

are   checked  with   this   value.) 

Maximum  expected  accomplishment    (Used  to 

check  for  typographical  errors.) 
First  month  of  analysis  period   (January=l, 

(February=2,    etc.) 
Year  of  first  month  of  analysis  period. 
(Only  enter   last   two   digits   of  year, 
e.g.,    82  for   1982.) 
Last  month  of  analysis  period. 
Year  of   last  month   of   analysis   period. 

(iey   must    be   greater   than   or   equal   to   iby, 
but   can't  be  greater  than  iby  +1) 

0  —  deviation  analysis   is  not   to   be  done 

1  —  deviation  analysis   is   to  be  done 
1  —  analyze  interstate    (int)   system 

0  —  do  not   analyze  interstate  system 

1  —  analyze   other  state  highway    (osh)   system  ** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


** 
** 
** 

** 

** 

** 

** 

** 
** 


** 
** 
** 
** 
** 
** 
** 
** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 
** 


0  —   do  not   analyze   osh  system 

1  —  analyze   total    (int  +  osh)   system 
0  —   do  not   analyze  total  system 

0  —  do  not   print    bar   chart   of   cost 

1  —  print   bar  chart   of  average  cost 

0  —  do  not  print   bar   chart    of    labor  hours 

per  unit   of   accomplishment 

1  —  print    bar   chart    of    labor  hours   per  unit 

of   accomplishment 

0  —  do  not   print   bar   chart   of    total  accom- 

plishment 

1  —  print    bar   chart   of    total  accomplishment 

0  —   do  not   print   bar   chart   of   average  accom-  ** 

plishment  ** 

1  —  print   bar   chart   of   average  accomplish-       ** 

ment  ** 

0  —   do  not   print   bar  chart   of   average   crew        ** 

size  ** 

1  —  print   bar  chart   of   average   crew  size  ** 


—  do  not   print    bar   chart    of   average  quan- 
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c*  tity  of  material  per  accomplishment  unit  ** 

c*  n  —  (where  n  is  1-6)  print  bar  chart  of  aver-** 

c*  age  quantity  of  specified  material  n  per  ** 

c*  accomplishment  unit  when  material  n  was   ** 

c*  used  ** 

c*  sdev  real  The  number  of  standard  deviations  to  be  used  ** 
c*  in  identifying  deviate  subdistricts.        ** 

c*  A  subdistrict  will  be  identified  as  deviate  ** 

c*  if  its  average  cost  falls  outside  the  range  ** 

c*  of  the  average  plus  or  minus  sdev  number  of  ** 

c*  standard  deviations.  (This  is  only  entered  ** 

c*  if  idev-1)  ** 

c*  ** 

c*  Input  is  free  format  from  file  identified  with  unit  1,  and  ** 
c*      organized  as  follows:  ** 

c*  ** 

c*      Line  1:  ib  ** 

c*      Line  2:  iact  nmat  ** 

c*      Line  3:  dact  ** 

c*      Line  4:  uact  ** 

c*      Line  5:  sm(k)  csm(k)  qmax(k)   (Where  k=l,nmat)  ** 

c*      Line  6:  dsm(k)  ** 

c*      Line  7:  usm(k)  ** 

c*  Lines  5-7  are  repeated  for  each  specified  material  giving  a  ** 
c*  total  of  (3  *  nmat)  lines  describing  the  materials  ** 
c*        If  nmat»0,  skip  these  lines.  ** 

c*      Line  4+(3*nmat):   ibm  iby  iem  iey  ** 

c*      Line  5+(3*nmat):   idev  intout  oshout  totout  ** 

c*  icost  ihours  itacc  iavacc  icrew  imat       ** 

c*      Line  6+(3*nmat):   sdev  (Skip  this  line  if  idev=0)  ** 

c*  ** 

c*  ** 

c*******************************^ 

c ******************************************************************** 
c 
c 

character  dsm*40,  usm*20, dact *40, uact *20 

integer  sm, oshout, totout 

dimension  sm(6) ,dsm(6) ,usm(6) ,csm(6) ,qmax(6) 
c 
c     Read  beginning  record  number,  ib 

read(l,*)ib 
c 

c     Read  activity  number  and  number  of  associated  materials,  iact  and 
c       nmat 

read(l,*)iact,nmat 

read(l,900)dact 

read(l,901)uact 
c 
c  Read  specified  material  code  numbers 

do   11    j=l,nmat 
c 
c  If   less    than  six  materials  were  specified,    set   the   other  cost 
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c       values  equal  to  zero.  This  Is  necessary,  because  calculations 
c       are  made  using  all  of  the  material  cost  values  later  In  the 
c      program.  That  Is,  certain  factors  are  calculated  In  loops  for 
c       six  materials  no  matter  how  many  materials  are  speclfed. 

if (nmat.eq.6)go  to  20 

do   21  k=nmat+l,6 

csm(k)=0. 
21        continue 
20        continue 
c 

read( 1 , *)sm( j ) , csm( j ) , qmax( j ) 

read(l,900)dsm(j) 

900  format (a40) 
read(l,901)usm(j) 

901  format (a20) 

11  continue 

c  Read  labor   cost   information 

read(l,*)crh,cot 
c 
c  Read  max  crew,    hours,    and  accomplishment 

read( 1 , * )maxcr , maxhr ,acmax 
c 
c  Read  beginning  and  ending  dates 

read(l,*)ibm,iby,iem,iey 
c 

c  Read  options   for  deviation  analysis,   highway  classes,   and 

c  bar   charts 

read(l,*)idev,intout,oshout,totout,icost,ihours,itacc,iavacc, 

*  icrew,imat 
if (idev.eq.O)go  to   12 
read(l,*)sdev 

12  continue 
c 

c  Call  subroutine  CKPRAM  to  see  if  parameters   appear  to  have   been 

c  input   correctly 

call  ckpram(ib , iact , nmat , sm, csm, dsm, usm, qmax, crh , co t , 

*  maxcr, maxhr, acmax,ibm,iby,iem, ley, idev,sdev,k,dact,uact, 

*  intout , oshout , tot out , icost , ihours , itacc , iavacc , icrew, imat ) 
continue 

c 

c     If  input  errors  were  detected,  k  will  equal  something  other  than 

c       zero.   If  k  is  not  equal  to  0,  stop  the  program. 

if(k.eq.0)go  to  10 

write (3,*) 'Program  stopped  in  subroutine  PARAM  due  to  suspected  pa 
*rameter  input  error(s)' 

stop 
10   continue 
c 
c     Return  to  MAIN 

return 

end 

subroutine   ckpram(ib, iact , nmat , sm, csm, dsm, usm, qmax, crh , cot , 

*  maxcr, maxhr, acmax,ibm,iby,iem,iey,idev,sdev,k,dact,uact, 
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*  intout,oshout,totout,icost,ihours,itacc,iavacc,icrew,iniat) 

c*  ** 

c*   CKPRAM  ** 

c*   This  subroutine  will  check  the  parameters  in  an  effort  to  detect  ** 
c*     input  errors.  ** 

c* 

c*  ** 

c* 

c  ** 

character   dsm*40,usm*20,dact*40,uact*20 

integer  sm,oshout,totout 

dimension  sm( 6 ) , dsm( 6 ) , usm( 6 ) , csm( 6 ) , qmax( 6 ) 
c 

c  First   echo  parameters 

c  Print  heading 

write(3,920) 
920      format (lx,26hROUTINE  MAINTENANCE   REPORT,//) 

write(3,900) 
900      format (lx,16hINPUT  PARAMETERS) 
c 

c  Print   activity  number,    description,    and  unit   of  measure 

write(3,902)iact,dact,uact 
902     format (//,lx,8hACTIVITY,3x,i3,3x,a40,3x, 

*  20hACC0MPLISHMENT  UNIT: ,3x,a20) 
c 

c  If  no  materials   are  specified,    print  message  and  skip   individual 

c  listing  of   materials. 

if (nmat.ne.O)go  to   10 

write(3,941) 

941   format(/,lx,44hN0  MATERIALS  ARE  SPECIFIED  FOR  THIS  ACTIVITY) 
go  to  16 

10  continue 
c 

c  Write  the   number,    name,    unit,    cost,    and  qmax  for  each  specified 

c  material. 

write(3,921)nmat 

921  format(/,lx,3hTHE,lx,l2,lx, 

*  42hMATERIALS  SPECIFIED  FOR  THIS  ACTIVITY  ARE:) 
write(3,940) 

940  format(/,6x,4hCODE,5x,llhDESCRIPTION,29x,12hUNIT  C0ST($), 

*  2x,4hUNIT,16x,21hMAX  EXPECTED  QUANTITY,/, 

6x,4h ,5x,ll(lh-),29x,12(lh-),2x,4h ,16x,21(lh-)) 

do  11  j=l,nmat 

write(3,922)sm(j),dsm(j),csm(j),usm(j),qmax(j) 

922  format(6x,l4,5x,a40,3x,f7.2,4x,a20,6x,fl0.2) 

11  continue 
16   continue 

c  Write   labor  cost 

write(3,923)crh,cot 

923  format(/, lx, 11 hLABOR  COST: ,/,6x, 12hRegular  Hour, 2x,f 6.2,/, 
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*  6x,13hO  vert  line  Hour,lx,f6.2) 
c 

c  Write  check  values  for   crew,   hours,    and  accomplishment 

write(3,924)maxcr,maxhr,acmax 

924  format (/,lx,25hVALUES  FOR  CHECKING  DATA: ,/,5x,8hMax  Crew,8x,i7, 

*  /,5x,9hMax  Hours,7x,i7,/,5x,14hMax  Production, 2x,f 7.1) 
c 

c  Write  beginning  and  ending  dates 

write(3,903)ibm,iby,iem,iey 
903     format(//, lx,16hANALYSIS  PERIOD: ,3x,i2,lh-,i2, 

*  3x,7h through, 3x,i2,lh-,i2) 
c 

c 

c     Write  output  options 
write(3,931) 

931  format (-/,lx,13hANALYSIS  FOR:) 
if (intout.eq.O)go  to  1 

if (intout.ne.l)go  to  1 
write(3,930) 
930   format (16x,10hINTERSTATE) 

1  continue 

if (oshout.eq.O)go  to  2 
if (oshout.ne.l)go  to  2 
write(3,932) 

932  format (16x,19hOTHER  STATE  HIGHWAY) 

2  continue 

if (totout.eq.O)go  to  3 
if (totout.ne.l)go  to  3 
write(3,934) 
934      format (16x,24hT0TAL   SYSTEM   (INT  +  OSH)) 

3  continue 
c 

c  Check,  deviation  analysis   option 

if (idev.eq.O)go  to  12 
if (idev.ne.l)go  to  13 
write(3,925)sdev 

925  format (/,lx,27hDEVIATIONS  WILL   BE  DETECTED, lx, 

*  37WJSING   COST  PRODUCTIVITY   BEYOND  +  OR  -,f6.3, 

*  lx,21hSTANDARD  DEVIATION(S)) 
go  to   13 

12  continue 
write(3,926) 

926  format(/,lx,30hN0  DEVIATIONS  WILL  BE  DETECTED) 

13  continue 
c 

c     Check  bar  chart  printing  options 

if  (  (  icos  t .  ne .  0 ) .  or .  (it  ace .  ne .  0 ) .  or .  ( iavacc .  ne .  0 ) .  or .  ( icr  ew .  ne .  0 ) ) 

*  go  to  200 
write(3,950) 

950   format (/,lx,29hNO  BAR  CHARTS  WILL  BE  PRINTED) 

go  to  204 
200   continue 

write(3,951) 
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951  format(/, lx,16hPRINT   CHART   FOR:) 
if  (icost.eq..0)go   to   201 

if (icost.ne.l)go  to  201 
write(3,952) 

952  format (17x,36hAVERAGE  COST  PER  ACCOMPLISHMENT  UNIT) 

201  continue 

if (ihours.eq.O)go  to  205 

if (ihours.ne.l)go  to  205 

write(3,960) 
960     format (17x,35hLABOR  HOURS   PER  ACCOMPLISHMENT  UNIT) 
205     continue 

if(itacc.eq.0)go  to  202 

if (itacc.ne.l)go  to  202 

write(3,953) 

953  format (17x,27hTOTAL  PERIOD  ACCOMPLISHMENT) 

202  continue 

if (iavacc.eq.O)go  to  203 
if(iavacc.ne.l)go  to  203 
write(3,954) 

954  format (17x,28hAVERAGE  DAILY  ACCOMPLISHMENT) 

203  continue 

if (icrew.eq.O)go  to  204 
if (icrew.ne.l)go  to  204 
write(3,955) 

955  format C17x,17hAVERAGE  CREW  SIZE) 

204  continue 

if (imat.eq.O)go   to  2041 

if ((imat.ne.l).and.(imat.ne.2).and.(imat.ne.3).and. 

*  (imat.ne.4).and.(lmat.ne.5).and.(imat.ne.6))go  to  2041 
write(3,962)sm(imat) 

962     format( 17x,20hQUANTITY  OF  MATERIAL, lx,i4,lx, 

*  23hPER  ACCOMPLISHMENT  UNIT) 
2041   continue 

write(3,901)ib 

format (//,lx,17hBeginning  Record-, 3x,i6) 


901 

c 


c  The  previous  section  echoed  the  parameters  as   input, 

c  This  section  checks    the  parameters   to  see  if   their  values 

c  are   reasonable, 

c  Let  k=number  of   errors   detected 

k-0 


c 


c  Check  that  activity  code  numbers  are  between  200  and  299 

if((iact.gt.l99).and.(iact.lt.300))go  to  20 
k»k+l 

write(3,905) 
905     f ormat (// , lx, 1 1 h***ERR0R*** , lx, 

*  60hSpecified  activity  code  is   less    than  200  or  greater  than  299) 
20       continue 
c 

c  A  maximum  of   six  materials  may   be  specified 

if (nmat.le.6)go  to  30 
k=k+l 
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write(3,906) 

906  format (// , lx, llh***ERR0R***, lx, 

*  35hMore  than  6  materials  are  specified) 
30   continue 

c 

c  Check  that  material  codes   are  within  correct   range, 

c  4060-4522,   non-inclusive.     Range   of   codes   determined  from 

c       IDOH  1982-83  Field  Operations  Handbookfor  Foremen, 

c       Division  of  Maintenance. 

do  40  j=l,nmat 

if((sm(j).le.4060).or.(sm(j).ge.4522))go  to  50 
40       continue 

go  to  60 
50       k-k+1 

write(3,907) 

907  formatC//, lx,llh***ERR0R***,lx, 

*  57hAll  material  codes  are  not  within  correct  numerical  range) 
60   continue 

c 

c  Check  that   beginning  date  is   before  ending  date,   and  that 

c  the  months  are   between  1  and   12 

if((ibm.ge.l).and.(ibm.le.l2))go  to  70 

k-k+1 

write(3,908) 

908  format(//,lx,llh***ERROR***,lx, 

*  49hBeginning  month  is  less  than  1  or  greater  than  12) 
70   continue 

if ((iem.ge.l).and.(iem.le.l2))go  to  80 

k-k+1 

write(3,909) 

909  format (// , lx, llh***ERR0R***, lx, 

*  46h£nding  month  is  less  than  1  or  greater  than  12) 
80   continue 

c 

c  Check  that   ending  year  is   greater  than  or  equal  to  beginning 

c  year,   and  that   ending  year  is   not   later  than  beginning 

c  year  +  1. 

iy-iey-iby 

if (iy.ge.O)go  to  90 

k-k+1 

write(3,910) 

910  format (// , lx, llh***ERR0R*** , lx, 

*  36hEnding  year  is   before   beginning  year) 
90       continue 

if(iy.le.l)go  to  100 

k-k+1 

write(3,911) 

911  format (//,lx,llh***ERR0R***,lx, 

*  44hEnding  year  is   later  than  beginning  year  +1) 
100      continue 

if (iy.ne.O)go  to   110 
if (iem.ge.ibm)go   to   110 
k-k+1 
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write(3,912) 
912      format (//,lx,llh***ERROR***,lx, 

*  36hBeginn±ng  date  is   before   ending  date) 
110     continue 

c 

c  Check  idev 

if ((idev.eq.O).or.(idev.eq.l))go   to   120 

k-k+1 

write(3,914)idev 
914      format(//,lx,llh***ERROR***,lx, 

*  36hVALUE  OF  IDEV   IS  NOT  CORRECT,      IDEV-,i2) 
120     continue 

c 

c  Check  output   option  parameters 

if((intout.eq.O).or.(intout.eq.l))go  to   130 

k-k+1 

write(3,936)intout 

936  format(/,lx,llh***ERR0R***,lx,28hVALUE  OF  INTOUT  IS   INCORRECT 

*  2x,7hINTOUT-,i4) 
130     continue 

if ((oshout.eq.0).or.(oshout.eq.l))go  to   140 
k-k+1 

write(3,937)oshout 

937  format(/,lx,llh***ERROR***,lx,28hVALUE  OF  0SH0UT  IS  INCORRECT 

*  2x,7hOSHOUT=,i4) 
140  continue 

if ((totout.eq.0).or.(totout.eq.l))go  to   150 

k-k+1 

write(3,938)totout 

938  formatC/, lx,llh***ERROR***,lx,28hVALUE  OF  T0T0UT  IS   INCORRECT 

*  2x,7hTOTOUT-,i4) 
150     continue 

c 

c  Check  bar  chart   option  parameters. 

if((icost.eq.0).or.(icost.eq.l))go   to   160 

k-k+1 

write(3,956)icost 
956  format(/, lx,llh***ERROR***,lx,27hVALUE  OF  IC0ST  IS  INCORRECT 

*  2x,6hIC0ST=,i4) 
160  continue 

if ((ihours.eq.0).or.(ihours.eq.l))go  to  165 
k-k+1 

write(3,961)ihours 
961  formatC/, lx,llh***ERR0R***,lx,28hVALUE  OF  IHOURS  IS  INCORRECT, 

*  2x,7hIHOURS-,i4) 
165  continue 

if ((imat.eq.0).or.(imat.eq.l).or.(imat.eq.2).or.(imat.eq.3).or. 

*  (imat.eq.4).or.(imat.eq.5).or.(imat.eq.6))go  to  167 
k-k+1 

writ3e(3,963)imat 

963     format (/, lx,llh***ERROR***,lx,26hVALUE  OF   IMAT  IS   INCORRECT, 2x, 

*  5hIMAT=,i4) 
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167  continue 

if ((itacc.eq.O).or.(itacc.eq.l))go  to  170 

k-k+1 

write(3,957)itacc 

957  format(/,lx,llh***ERROR***,lx,27hVALUE  OF  ITACC  IS  INCORRECT, 

*  2x,6hITAO>,i4) 
170  continue 

if ((iavacc.eq.O).or. (iavacc.eq.l))go  to  180 

k-k+1 

write(3,958)iavacc 

958  format (/,lx,llh***ERROR***,28hVALUE  OF  IAVACC  IS  INCORRECT, 

*  2x,7hIAVACC=»,i4) 
180  continue 

if ((icrew.eq.O).or.(icrew.eq.l))go  to  190 

k-k+1 

write(3,959)icrew 

959  fom»t(/,lx,llh***ERROR***,lx,27hVALUE  OF  ICREW  IS  INCORRECT, 

*  2x,6hICREW=,i4) 
190  continue 

c 

c     Print  total  number  of  errors  detected  if  any 
if(k.eq.0)go  to  300 
write(3,913)k 
913  format (//,lx,i2,lx,36hparameter  input  errors  were  detected,) 
300  continue 
c 

c     Skip  to  new  page 
write(3,915) 
915  format (lhl) 
c 

c     Return  to  subroutine  PARAM 
return 
end 
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subroutine  begin(ib,i) 
c*********************************************************************** 
c*********************************************************************** 

c*  ** 

c*  BEGIN  ** 

c*  This  subroutine  will  position  the  data  file  at  the  desired  ** 

c*  beginning  record.   (File  has  already  been  rewound.)  ** 

c*  The  program  examines  each  line  of  the  data  file  to  determine  ** 

c*  if  that  line  contains  data  for  the  activity  and  time  period  ** 

c*  of  interest.  With  very  large  data  files,  this  process  can  ** 

c*  a  great  deal  of  time.  However,  if  the  approximate  position  ** 

c*  of  the  data  of  interest  is  known,  this  subroutine  can  save  ** 

c*  some  time.  For  example,  if  it  is  known  that  the  data  of  ** 

c*  interest  begins  somewhere  after  the  first  8000  lines  of  the  ** 

c*  file,  the  parameter  ib  should  be  set  to  8000.  Then  BEGIN  ** 

c*  will  skip  the  first  7999  lines  of  the  file  without  testing  ** 

c*  for  the  correct  activity  and  date,  saving  some  time, 

c*  Line  8000  of  the  file  will  be  the  first  one  checked.  ** 

c*  If  the  location  of  the  data  within  the  file  is  not  known, 

c*  ib  should  be  set  equal  to  1. 
c* 


** 
** 
** 
c*********************************************************************** 

c *********************************************************************** 

c 

c  Initilize  record  counter,    i   (i»#  of   record  to  be  read  next) 

i-1 
10        if(i.eq.ib)go   to  20 

read(2,900,end=l)a 

900  format (al) 
i-i+1 

go  to  10 
c 

c     If  the  end  of  the  file  is  reached  before  the  beginning  record, 
c       a  message  is  printed. 
1    write(3,901) 

901  format (lhl ,lx,26h***ABN0RMAL  TERMINATION***) 
write(3,*)'End  of  file  reached  before  ib' 
write(3,*) 'Program  terminated  within  subroutine  BEGIN' 
stop 

20   return 
end 
subroutine  read ( iact , nmat , sm, qmax,maxcr , maxhr ,acmax, 

*  ibm,iby,iem,iey,llabi,llabo,tacci, 

*  tacco , tcrewi , tcrewo , trhi , trho, tot i , toto, rhacci , 

*  rhacco,otacci,otacco,lacci,lacco,lrhi,lrho,loti, 

*  loto,lmati,lmato,qsmli,qsmlo,qsm2i,qsm2o,qsm3i, 

*  qsm3o , qsm4i , qsm4o , qsm5i , qsm5o , qsm6i , qsm6o , lsml i , 

*  lsmlo,lsm2i, lsm2o,lsm3i,lsm3o,lsm4i, lsm4o,lsm5i, 

*  lsm5o,lsm6i,lsm6o,lmi,lmo, 

*  smlaci , smlaco , sm2aci , sm2aco , sm3aci , sm3aco , 

*  sm4aci , sm4aco , sm5aci , smSaco , sm6aci , sm6aco , 

*  llabt , tacct , tcrewt , trh t , tott , rhacct , otacct , lacct , 
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*  lrht,lott,lmatt,qsmlt,qsm2t,qsm3t,qsm4t,qsm5t, 

*  qsra6t,lsmlt,lsm2t,lsm3t,lsm4t,lsm5t,lsm6t, 

*  lmt , smlact , sm2act , sm3act , sm4act , sm5act , 

*  sm6act ) 

c*  ** 

c*  READ  ** 

c*  This  subroutine  will  read  and  tabulate  crew  day  card  records.  ** 

c*  ** 

c*  First  the  card  type,  activity,  and  date  will  be  read  and  ** 

c*  and  checked.   If  these  are  for  the  activity  and  time  period  ** 

c*  under  study,  the  entire  data  record  will  be  read  and  values  ** 

c*  for  reasonableness.   If  all  checks  are  ok,  the  proper  ** 

c*  If  all  checks  are  ok,  the  data  will  be  sent  to  the  proper  ** 

c*  subroutine  will  be  called  to  tabulate  the  data.  ** 

c*  ** 

c*  Two  types  of  cards  (or  records)  are  of  interest:  labor  and  ** 

c*  and  material.  Each  crew  day  card  contains  information  on  ** 

c*  labor,  material,  and  equipment  used.  The  labor  and  material  ** 

c*  data  are  recorded  on  separate  lines  in  the  data  file.  ** 

c*  A  labor  record  is  type  91,  and  material  record  is  type  93.  ** 

c*  Type  91  and  9m  records  contain  information  entered  by  ** 

c*  Central  Office  personnel  to  correct  mistakes  found  in  the  ** 

c*  crew  day  card  records  already  entered.  However,  the  number  ** 

c*  of  91  and  9m  records  are  relatively  small,  and  since  the  ** 

c*  program  checks  data  for  reasonableness  of  values,  the  91  and  ** 

c*  9m  records  are  not  tabulated  by  the  program.  ** 

c*  ** 

c*  Separate  records  are  kept  for  the  interstate  and  the  other  ** 

c*  state  highway  systems,  and  the  program  tabulates  these  ** 

c*  separately  as  well  as  tabulating  a  total  (int  +  osh)  system  ** 

c*  category.  ** 

c*  ** 

c*  READ  first  reads  the  card  type,  activity,  and  date  and  calls  ** 

c*  subroutine  CKRD1  to  check  if  these  values  appear  reasonable.  ** 

c*  This  will  identify  typographical  errors  as  well  as  possible  ** 

c*  errors  in  the  data  format.   If  the  values  appear  reasonable,  ** 

c*  READ  calls  subroutine  CKRD2  to  determine  If  the  record  is  for  ** 

c*  the  activity  and  time  period  being  analyzed.   If  the  record  ** 

c*  is  one  of  interest  for  the  analysis,  the  type  (labor  or  mat-  ** 

c*  ierial)  is  determined,  and  the  subroutine  to  tabulate  that  ** 

c*  type  of  data  is  called.  RDLAB  is  called  for  labor  data,  ** 

c*  while  RDMAT  is  called  for  material  data.  ** 

c*  ** 

c*  RDLAB  or  RDMAT  determines  if  the  data  are  from  the  interstate  ** 

c*  or  the  other  state  highway  system  and  calls  the  subroutine  ** 

c*  which  tabulates  the  data  for  that  particular  highway  class.  ** 

c*  INTLAB  tabulates  interstate  labor;  OSHLAB  tabulates  other  ** 

c*  state  highway  labor;  INTMAT  tabulates  interstate  material,  ** 

c*  and  OSHMAT  tabulates  other  state  highway  material.  ** 

c*  These  subroutines  also  tabulate  data  for  the  total  ** 

c*  (int  +  osh)  system.  ** 


179 


** 


c 


c*  Thus,  labor  and  material  data  are  tabulated  separately  for  ** 

c*      the  Interstate,  other  state  highway,  and  total  (int  +  osh)  ** 

c*     highway  systems.  ** 

c* 

c*  This  process  is  repeated  for  each  line  of  the  data  file  until  ** 

c*      the  end  of  the  file  is  reached,  or  until  it  is  believed  that  ** 

c*      all  of  the  data  for  the  analysis  period  has  been  read.  ** 

c*      READ  then  returns  to  the  main  program,  MAIN. 

** 

** 
c~ 

c ******************************************* **************************** 

c****************************************^^ 

integer  sm, tcrewi , tcrewo , trhi , trho , tot i , toto , act , yr , t crewt , trht , 

*  tott 
character  type*2 

dimension  sm(6) ,qmax(6) ,tacci(66) ,tacco( 66), tcrewi (66) ,tcrewo(66), 

*  trhi(66),trho(66),toti(66),toto(66),rhacci(66), 

*  rhacco ( 66 ) , otacci ( 66 ) , otacco ( 66 ) , lacci ( 66 ) , lacco ( 66 ) , 

*  lrhi(66),lrho(66),loti(66),loto(66),qsmli(66),qsmlo(66), 

*  qsm2i(66),qsm2o(66),qsm3i(66),qsm3o(66),qsm4i(66), 

*  qsm4o(66),qsm5i(66),qsm5o(66),qsm6i(66),qsm6o(66), 

*  lsmli(66),lsmlo(66),lsm2i(66),lsm2o(66),lsm3i(66), 

*  ism3o(66),lsm4i(66),lsm4o(66),lsm5i(66),lsm5o(66), 

*  lsm6i(66),lsm6o(66),lmi(66),lmo(66), 

*  smlaci(66),smlaco(66),sm2aci(66),sm2aco(66), 

*  sm3aci ( 66 ) , sm3aco ( 66 ) , sm4aci ( 66 ) , sm4aco ( 66 ) , 

*  sm5aci(66),sm5aco(66),sm6aci(66),sm6aco(66), 

*  tacct (66 ) , tcrewt ( 66 ) , trht (66 ) , tott (66 ) , rhacct ( 66 ) , 

*  otacct(66),lacct(66),lrht(66),lott(66),qsmlt(66), 

*  qsm2t(66),qsm3t(66),qsm4t(66),qsm5t(66),qsm6t(66), 

*  Ismlt(66),lsm2t(66),lsm3t(66),lsm4t(66),lsm5t(66), 

*  lsm6t ( 66 ) , lmt ( 66 ) , smlact ( 66 ) , sm2act ( 66 ) , sm3act ( 66 ) , 

*  sm4act(66),sm5act(66),sm6act(66) 
c 

c  irex  =  #  of   records   examined 

irex=l 
c 
c  Read  card  type,    act,    and  date 

10  read(2,900,err=l,end=2)type,act,month,yr 

900  format(a2,i3,12x,i2,2x,i2) 
c 

c     Check,  if  values  read  appear  reasonable 
call  ckrdl ( type, act, month, yr, irex, k) 

11  continue 
c 

c  If  an  error  has  been  detected,  k  will  be  greater  than  0. 
c  If  this  is  the  case,  write  the  entire  set  of  data,  and 
c       move  to  the  next  record. 

if(k.eq.0)go  to  20- 

writ e(3, 901 )k, type, act, month, yr 

901  format(//,lx,9hThe  above.lx.il ,lx, 

*  29herror(s)   came  from  this   data: ,a2,i3,12x,i2,2x,i2) 
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c 
c 
c     Increment  the  counter  and  read  the  next  record 

go  to  12 
c 
c     If  an  error  has  been  made  In  reading,  write  a  message. 

1  wrlte(3,*) 'Error  reading  type,  act,  month,  yr  In  READ,  stmt  10' 
write(3, 902 )type, act, month, yr 

902   format(lx,a2,i3,12x,i2,2x,i2) 

12        irex=irex+l 
go  to   10 
c 
c  If    the  end  of   file  is    reached,    note  this    and  return  to  MAIN 

2  write(3,*)'End   of    file   reached  in  READ,    stmt    10 — return   to   main' 
return 

20        continue 
c 

c     The  next  statement  will  cause  the  program  to  disregard 
c     type  91  and  9m  records. 

if((type.eq.'91').or.(type.eq.'9m'))go  to   12 
c 
c  If  data  are   of   correct  form,    check  for  desired  values 

call  ckrd2(act, month, yr,iact,ibm,iby,iem, ley, istat, i rex) 
c 

c  The  next   action  depends   on  the  value  of   istat   as   determined 

c  by  CKRD2. 

c  If   istat=0,    the   data  is   for  the   correct  activity  and  date 

c  If   istat=l,    the   current   record  should  be  skipped 

c  If    is tat =2,    all   data  within  the   date   range  is    believed  to  have 

c  been   read,   and  calculation  of   factors   should  follow 

if  (istat. eq.Dgo   to   12 

if(istat.eq.2)go  to   30 

if (istat. eq.0)go  to  40 
30        continue 
c 
c  All   data  have   been   read,    return  to  MAIN 

return 
40        cont  inue 
c 

c  Activity  and  date  are   correct,    read  entire   record  according 

c  to   the  proper   format   for   that    type   of    record. 

backspace  2 
c 
c  Type   91    is   a  labor  record 

if (type.eq.'91')go  to  50 
c 
c  Type   93   is   a  material  record 

if (type.eq.'93')go   to  60 
c 
c  Increment   the   counter  and  examine   the  next    record 

go  to    12 
c 
c  Type  91    card,    labor 
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c      Call  subroutine  Co  read  labor 
50   call  rdlab(llabi,llabo,tacci, tacco, tcrewi, tcrewo.trhi, trho,toti, 

*  toto, rhacci , rhacco, otacci , otacco, lacci , lacco , lrhi , lrho, 

*  loti,loto,maxcr,maxhr,acmax,acc,llabt,tacct,tcrewt, 

*  trht , tott , rhacct , otacct , lacct , lrht , lot t ) 
c 

c     When  control  is  returned  from  RDLAB,  increment  counter  and 
c     examine  the  next  record 

go  to  12 
c     Type  93  card,  material 

c     Call  subroutine  RDMAT  to  read  material  record. 
60   call  rdmat(sm,qmax,lmati,lmato,qsmli,qsmlo,qsm2i,qsm2o,qsm3i, 

*  qsm3o , qsm4i , qsm4o , qsm5i , qsm5o , qsm6i , qsm6o , lsml i , lsmlo , 

*  lsm2i , lsm2o , lsm3i , lsm3o , lsm4i , lsm4o , lsm5i , lsm5o, 

*  lsm6i,lsm6o,lmi,lmo,acc, 

*  smlaci , smlaco , sm2aci , sm2aco , sm3aci , sm3aco , 

*  sm4aci , sm4aco , sm5aci , sm5aco , sm6aci , sm6aco , lmatt , 

*  qsmlt,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t,lsmlt,lsm2t, 

*  lsm3t , lsm4t , lsm5t , lsm6t , lmt , smlact , sm2act , sm3act , 

*  sm4act,sm5act,sm6act) 
c 

c     When  control  is  returned  from  RDMAT,  increment  counter  and 
c     examine  the  next  record 

go  to  12 

end 

subroutine  ckrdl( type, act, month, yr,irex,k) 
c*********************************************************************** 
c*********************************************************************** 
c*  ** 

c*    CKRD1  ** 

c*  This  subroutine  will  check  variables  type, act, month, yr  ** 
c*  to  try  to  catch  typographical  errors,  or  a  format  error.  ** 
c*  ** 

c*  ** 

c*  ** 

c*  ** 

c*********************************************************************** 

c *********************************************************************** 

integer  act,yr 

character  type*2 
c  k  ■  #  of   errors   detected 

k=0 
c 
c  Check   type,    should  be   91,    93,    91,    or   9m 

if((type.eq.'91').or.(type.eq.'93').or.(type.eq.'91').or. 

*  (type.eq.'9m'))go   to   10 
k=k+l 
write(3,900)type,irex 

900  format (// , lx, llh***ERR0R***, lx,20hUnexpected  card  type,5x, 

*  5hTYPE=,2x,a2,22hRecord  examined,    IREX=,2x,i6) 
write(3,901) 

901  format (4x, 34 hError   detected  by   subroutine  CKRD1) 
10        continue 
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c 

c  Check   that   act   is   between  200   and   299 

if((act.gt.l99).and.(act.lt.300))go  to  20 

k=k+l 

write(3,902)act,irex 

902  format (//lx,llh***ERR0R***,lx, 

*  50hRead  act  code  is  less  than  200  or  greater  than  299, 5x, 

*  4hACT=,2x,i3,5x,13hRecord,  IR£X=»,i6) 
write(3,901) 

20   continue 
c 
c     Check  month 

if ((month. ge.l). and. (month. le.l2))go  to  30 

k=k+l 

write(3,903)month,irex 

903  format (//,lx,llh***ERROR***,lx, 

*  44hMonth   read  is    less    than  1   or   greater  than   12,5x,6hM0NTH=, 

*  2x,i2,13hRecord,    IREX=»,i6) 
write(3,901) 

30        continue 
return 
end 

subroutine   ckrd2 (act , month , yr , iact , ibm, iby , iem, iey , is  tat , irex ) 
c*********************************************************************** 

C*  ** 

c*  CKRD2  ** 

c*  This  subroutine  will  check  act  and  date  to  see  if  the  data  ** 

c*  record  is  one  of  interest  for  the  anlysis.  ** 

c*  ** 

c*  NOTE:  It  is  this  subroutine  that  determines  if  all  of  the  ** 

c*  data  for  the  analysis  period  has  been  read.  Because  ** 

c*  the  crew  day  card  data  is  not  entered  on  the  file  in  ** 

c*  order  by  date,  the  fact  that  a  record  having  a  date  ** 

c*  later  than  the  end  of  the  anlaysis  period  does  not  ** 

c*  indicate  that  all  of  the  data  for  the  analysis  period  ** 

c*  has  already  been  read.   But  the  crew  day  card  data  is  ** 

c*  entered  roughly  in  order  according  to  date.  Thus,  to  ** 

c*  avoid  reading  every  record  in  the  file,  when  a  date  ** 

c*  later  than  the  analysis  period  is  encountered,  the  next  ** 

c*  200  records  are  checked.   If  all  200  are  later  than  the  ** 

c*  analysis  period,  it  is  assumed  that  all  of  the  records  ** 

c*  for  the  period  have  been  read.  ** 

c*  If  this  program  is  used  with  a  file  where  the  data  are  ** 

c*  more  widespread  with  respect  to  the  date,  this  value  ** 

c*  should  be  increased  accordingly.  This  can  be  done  by  ** 

c*  changing  the  value  assigned  to  'look'  in  the  data  ** 

c*  statement  located  just  below  this  comment  section.  ** 

** 

It  should  also  be  noted  that  'data  record'  in  this  ** 

context  does  not  necessarily  mean  crew  day  card.  ** 

For  each  activity  in  which  materials  are  used,  there  ** 

are  two  data  records  for  each  crew  day  card,  since  the  ** 
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c*  information  for   labor  and  material  are   on  separate  ** 

c*  'lines'   or   records   in  the   data  file.      Thus,    checking  the   ** 

c*  next   200   records  would   be   equivalent   to   checking   the  ** 

c*  next   100   crew  day   cards.     However,    for  activites  with   no   ** 

c*  materials,    there  is   only   one   record  per   crew  day   card         ** 

c*  (the   labor  record).  ** 

c*  ** 

c*  ** 

c*********************************************************************** 
c ******************************************* **************************** 

integer  act.yr 
c 
c  The  meaning  and  use   of    'look'   is   explained  in  the  NOTE  above. 

data   look   /200/ 
c 

c  If   the  record  is  for  the  activity  and  time  period  being  analyzed, 

c  istat  will  be  set   to  0.     In  this   case,   READ  will  call  the 

c  subroutine  to  tabulate  the  data. 

c  If   the   record  is  for  another  activity,    or  is   earlier  than  the 

c  analysis  period,    istat  will  be  set   to  1.     In  this   case,   READ 

c  will  go  to  the  next   record  in  the   data  file, 

c  If   it   is   believed  that  all  records  for  the  analysis   time  period 

c  have  been  read,    istat  will  be  set   to  2.      In  this   case,    READ 

c  will  return  to  the  main  program,  MAIN. 

c  istat=0  if   ok 

c  istat=l   if  wrong  act   or  date  is    too  early 

c  istat=2  if   beyond  ending  date 

c 
c  Check  activity 

if (act.eq.iact)go  to   10 

istat=l 

return 
10   continue 
c 

c     Check  date 
c     First  determine  if  specified  dates  are  in  same  calendar  year 

if((iey-iby).eq.l)go  to  100 
c 

c  Since  iey  ad  iby  have  already  been  checked,    in  subroutine 

c  CKPRAM.they   should  be 

c  the  same   value  if    the  above   go   to  wasn't   executed, 

c  That   is,    iey   should  equal   iby,    and  we  won't  have   to   deal 

c  with   two  different   calendar  years   in  determining  if    the 

c  record  is  within  the  analysis  period. 

c 
c  Check  if  year  is   too  early.     If   so,    read  the  next   record. 

if (yr.ge.iby)go  to  20 

istat»l 

return 
20   continue 
c 
c     Is  the  year  one  of  interest 

if (yr.gt.iby)go  to  30 
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c 

c  Yr  is   ok,    is   month   too  early 

if (month. ge.ibm)go   to   40 

istat=l 

return 
40   continue 
c 

c     If  month  is  too  late,  check  next  several  records  to  be  sure 
c       we  have  moved  into  a  new  month  on  the  data  file. 
c       If  the  month  is  not  too  late,  use  the  data. 

if (month. gt.iem)go  to  60 

is tat =0 

return 
30       continue 
c 

c  Read  next    'look'   records   to  make  sure  we  are  into  a  new 

c  calendar  year   on  the   data  file. 

i-1 

50  if(i.eq.(look+l))go   to   51 
read(2 ,900,err=l ,end=63)yr 

900  format (21x,i2) 

if (yr.le.iby)go  to  52 
53        i-i+1 

irex=irex+l 
go  to  50 
1         write(3,*) 'Error  reading  yr  in  CKRD2   stmt   50,   yr=',yr 

go  to  53 
52   continue 
c 

c  If  yr   .le.    iby,    backspace  and  return  to  statement   10  of  READ 

c  (Because   this   record  is   not  past   ending  year.) 

backspace  2 
istat=l 
return 

51  continue 
c 

c  In  this    condition,    we   believe  we  are   past   ending  date  specified, 

c  No  more   data  will  be   read.     Return  to  READ. 

istat=2 

return 

60  continue 
c 

c  This   section  wil  check   the  next   several  records    to   insure 

c  we  have   gone   beyond   the   specified  end   date, 

c  If  a  record  has   the  correct  yr  and  is   beyond  the  end  month, 

c  check   the   next    record.      If   not,    backspace  and  send   it    back 

c  to  READ. 

i-1 

61  if(i.eq.(look+l))go   to   63 
read(2,901,err=2,end=63)month,yr 

901  format (17x,i2,2x,i2) 

if    ((month. gt.iem). and. (yr.eq.iby))go  to   62 
backspace  2 
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istat=l 
return 

62  continue 
i-i+1 

irex=irex+l 
go  to  61 

2    write(3,*) 'Error  reading  month, yr  in  CKRD2  stmt  61' 
write ( 3 , * ) 'month= ' , month , 'y r= ' , yr 
go  to  62 

63  continue 
c 

c  Have   read  past   date.      Return  to  READ. 

istat=2 

return 
100     continue 
c 

c  This   section  will  check   the   date  when  the  analysis   period 

c  covers  part   of   two   calendar  years. 

c  The  anlysis  period  must   be   continuous;    thus  we  are   dealing 

c  with   the   end   of   one  year  and  beginning  of    the   followng. 

c 
c  Check  if  yr  is   before  beginning  yr. 

if(yr.ge.iby)go  to   110 

istat=l 

return 

110  continue 
c 

c     Is  yr  the  first  calendar  yr  If  yes,  check  month. 

if(yr.ne.iby)go  to  120 

if (month. ge.ibm)go   to   111 
c 
c  If  month  is   before  ibm,    read  next   record. 

istat=l 

return 

111  continue 
c 

c  In  this   case,    yr=iby  and  month   is    .ge.    ibm,    so  use  the   data. 

istat=0 

return 
120     continue 
c 
c  Check   if  yr  is    ley 

if (yr.gt.iey)go  to  130 
c 
c  Yr  is   iey,    check   if   past   ending  month. 

if (month. gt.iem)go  to   140 
c 
c  At   this   point,    yr=iey   and  month    . le.    iem,    so  use   data. 

istatO 

return 
130  continue 
c 
c     This  section  will  check  the  next  several  records  to 
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c  make   sure  we  are   beyond   the   ending  year  in   the   data   file. 

i-1 

131  if(i.eq.(look+l))go  to   133 
read(2,900,err=3,end=133)yr 
if (yr.le.iey)go  to   132 

134     i-i+1 

irex=irex+l 
go  to   131 

3  write(3,*) 'Error  reading  yr  in  CKRD2  stmt   131,   yr=',yr 
go  to  134 

132  continue 
backspace  2 
is tat =1 
return 

133  continue 
istat=2 
return 

140  continue 
c 

c  Check  next  several  records   to  make  sure  beyond  ending  month 

i=l 

141  if (i.eq.(look+l))go  to   143 
read(2,901,err=4,end=143)month,yr 

if ((month. gt.lem). and. (yr.eq. ley ))go  to  142 
backspace  2 
is tat =1 
return 

142  continue 
i=i+l 

irex=irex+l 
go  to   141 

4  write(3,*) 'Error  reading  month,   yr  in  CKRD2   stmt   141' 
write( 3 , * ) 'month- ' , month, 'yr= ' , yr 

go  to  142 

143  continue 
c 

c  At   end  of   data 

istat=2 
return 
end 
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subroutine  rdlab(llabi,llabo,tacci,tacco,tcrewi,tcrewo,trhi,trho, 

*  t oti , tot  o , rhacci , rhacco , otacci , otacco , lacci , 

*  lacco,lrhi,lrho,loti,loto,maxcr,maxhr,acmax,acc, 

*  llabt , tacct , tcrewt , trht , tott , rhacct , otacct , 

*  lacct,lrht,lott) 

c ***************************************************************** ****** 

c*************************************^ 

c*  ** 

c*    RDLAB  ** 

c*  This  subroutine  will  read  and  tabulate  data  from  labor  records.  ** 
c*  ** 

c*  First,  the  labor  record  is  read,  and  the  values  checked  for  ** 
c*  reasonableness.  If  the  record  is  for  the  interstate  system,  ** 
c*  subroutine  INTLAB  is  called  to  tabulate  the  data.  Subroutine  ** 
c*  OSHLAB  is  called  if  the  record  is  for  the  other  state  highway  ** 
c*  system.  These  subroutines  also  tabulate  the  data  for  the  ** 
c*      total  (int  +  osh)  system.  ** 

c*  ** 

c*  ** 

c *********************************************************************** 
c**********************************************^ 

integer  tcrewl,tcrewo,trhi,trho,toti, toto, act, unit, date, co, crew, 

*  rh.ot, tcrewt, trht, tott 
character  type*2,  class *3 

dimension  tacci ( 66 ) , tacco ( 66 ) , tcrewi ( 66 ) , tcrewo ( 66 ) , t rhi ( 66 ) , 

*  trho(66),toti(66),toto(66),rhacci(66),rhacco(66), 

*  otacci(66),otacco(66), lacci (66 ),lacco(66),lrhi(66), 

*  lrho(66),loti(66),loto(66), tacct (66), tcrewt (66), 

*  trht ( 66 ) , tott ( 66 ) , rhacct ( 66 ) , otacct ( 66 ) , lacct ( 66 ) , 

*  lrht(66),lott(66) 
c 

c     Check  data  read  from  crew  day  card  record  for  possible  errors 

c 

c     Let  k=  number  of  possible  errors  detected 

k=0 

read( 2 , 900 , err=l ) type , act , class , unit , dat  e , route , no , co , crew , rh , 

*  ot,acc 

900  format(a2,i3,2x,a3,i2,5x,i6,a2,i3,2i2,2i4,f6.1) 
c 

c  Check  for   reasonable  values   of   crew  and  hours  using  values 

c  entered   by   the   program  user. 

if (crew.le.maxcr)go   to   10 

k=k+l 

write(3,901)crew 

901  format (//,lx,16h***DATA  CHECK***, lx,22hLarge  crew  size,  crew=,i2) 
write(3, 902 )type, act, class, unit, date, route, no, co, crew, rh,ot, ace 

902  format ( lx, 12hData  Record: ,a2 , i3 , 2x, a3 , i2 , 5x, i6 ,a2 , i3 , 2i2 , 2i4 , f 7 . 1 ) 
10   continue 

if ((rh.le.maxhr).and.(ot.le.maxhr))go  to  13 

k=k+l 

write(3,903)rh,ot 

903  format (//,lx,16h***DATA  CHECK***, lx, 19hLarge  hour  value(s),5x 
*3hrh=, i4 ,5x,3hot=, i4) 
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write(3, 902 )type, act, class, unit, date, route, no, co, crew, rh.ot, ace 
c 

c     Check  for  reasonable  value  of  accomplishment 
13   If (acc.le.acmax)go  to  11 
k=k+l 

write(3,905)acc 
905   format(//, lx,16h***DATA  CHECK***, lx, 

*  33hQuestionable  Accomplishment  Value, 5x,4hACC=,lx,f 7.1) 
writ e( 3, 902) type, act, class, unit, date, route, no, co, crew, rh,ot, ace 
go  to  11 

c 

c     Note  if  a  read  error  occurred,  and  return  to  READ. 

I  write(3,*) 'Error  reading  data  in  RDLAB  stmt  900  -  1' 

write(3,902)type, act, class, unit, date, route, no, co, crew, rh,ot, ace 
return 

II  continue 
c 

c     If  any  errors  were  detected,  return  to  READ. 

if(k.eq.0)go  to  12 

return 
12   continue 
c 

c     If  no  errors  were  detected,  check  class,  and  call  appropriate 
c       subroutine. 

if (class. eq. 'int')go  to  20 

if (class. eq.'osh')go  to  30 
c 

c     If  class  is  neither  int  nor  osh,  write  error  message,  and  return 
c       to  READ. 

write(3,904)class 
904   format (//,lx,16h***DATA  CHECK***, lx, 

*  33hUnusual  class  designation,  class=,2x,a3) 

write( 3, 902 )type, act, class, unit, date, route, no, co, crew, rh.ot, ace 

return 
20   continue 
c 
c     Call  subroutine  INTLAB  to  tabulate  interstate  data. 

call  int lab(unit , crew, rh , ot ,acc , llabi , tacci , tcrewi , t rhi , toti , 

*  rhacci , otacci , lacci , lrhi , lot  i , llabt , tacct , tcrewt , 

*  trht , tott , rhacct , otacct , lacct , lrht , lot  t ) 
return 

30   continue 


c 


Call  subroutine  OSHLAB  to  tabulate  other  state  highway  data, 
call  oshlab (unit, crew, rh,ot, ace, 11a bo, tacco,tcrewo,trho,toto, 

*  rhacco , otacco , lacco , lrho , loto , llabt , tacct , tcrewt , 

*  trht , tott , rhacct , otacct , lacct , lrht , lot t ) 
continue 

return 

end 

subroutine  intlab(unit , crew, rh , ot , ace, llab, tacc, t crew, trh, tot , 

*  rhacc,otacc, lace, lrh, lot, llabt, tacct, tcrewt, 

*  trht , tott , rhacct , otacct , lacct , lrht , lott ) 
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c*********************************************************************** 

c*  ** 

c*  INTLAB  ** 

c*         This   subroutine  tabulates   data  from  interstate   labor   records.  ** 

c*  Two  sets   of   tabulations   are   made:    one  for  the  interstate  ** 

c*  system,   and  one  for   the   total    (int  +  osh)   system.  ** 

c*  ** 

c*         The  following  information  is   tabulated  by   subdistrict  ** 

c*  (management  unit):  ** 

c*  ** 

c*  lace     —  the  total  number  of   times   the  activity  was   performed  ** 

c*  tacc     —  total  accomplishment    (amount   of  work   done)  ** 

c*  tcrew  —  total  of   crew  sizes   in  persons  ** 

c*  lrh       —  number   of   times    regular-time   labor  hours  were  ** 

c*  used  in  performance   of   the  activity  ** 

c*  trh       —  total  number   of   regular-time   labor  hours  used  ** 

c*  rhacc  —  total  accomplishment  when  regular-time   labor  hours  ** 

c*  were  used  ** 

c*  lot       —  number  of   time   overtime   labor  hours  were  used  ** 

c*  tot        —  total  number   of   overtime   labor  hours  used  ** 

c*  otacc  —  total  accomplishment  when  overtime   labor  hours  were  ** 

c*  used  ** 

c*  NOTE:      When  both   regular-time  and  overtime  are   reported  on  ** 

c*  the  same   crew  day   card,    there   is   no  way   to   determine  ** 

c*  how  much  of   the  work  was   done  on  regular-time  and  how  ** 

c*  much   on  overtime.     Therefore,    rhacc=otacc.  ** 

c*  ** 

c*  The   variables   listed  above  tabulate   the  information  for   the  ** 

c*  interstate  system.     A  second  set   of   variables   tabulates   the  ** 

c*  information  for  the  total    (int  +  osh)   system.     These  ** 

c*  total  system  variables   are  named  as   those   listed  above,  ** 

c*  except   that  a    't'   is   appended  to  each  variable   name.  ** 

c*  ** 

c *********************************************************************** 
integer  unit, crew, rh, ot,t crew, trh,tot,tcrewt,trht, tot t 
dimension  tacc (66), tcrew (66), trh (66), tot (66), rhacc (66), otacc (66), 

*  lacc(66),lrh(66),lot(66),tacct(66),tcrewt(66),trht(66), 

*  tott(66),rhacct(66),otacct(66),lacct(66),lrht(66), 

*  lott(66) 
c 

c     Increment  total  counter,  llab,  unit  (subdistrict)  counter,  lace, 

c       and  add  accomplishment  and  crew  size  to  appropriate  totals. 

c 

c     Add  to  interstate  totals 

llab=llab+l 

lace (unit )=lacc(unit )+l 

tacc (unit ) =tacc (unit )+acc 

tcrew(unit )=tcrew(unit )+crew 
c 
c     Add  to  total  system  totals 

llabt=llabt+l 
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lacct (unit )=lacct (unit )+l 

tacct(unit)=tacct(unit )+acc 

tcrewt (unit )=tcrewt (unit )+crew 
c 
c     Check  if  reg  hours  were  reported 

if (rh.eq.O)go  to  10 
c 

c  Add  reg  hours,    accomplishment,    to  appropriate   totals   and 

c  increment   counter. 

c 
c  Add  to  interstate  totals 

lrh(unit )=lrh(unit )+l 

trh(unit)=trh(unit)+rh 

rhacc (unit )=rhacc(unit )+acc 
c 
c     Add  to  total  system  totals 

Irht (unit )=lrht (unit )+l 

trht (unit )=trht (unit )+rh 

rhacct (unit )=rhacct (unit )+acc 
10   continue 
c 
c     Check  if  ot  hours  were  used 

if(ot.eq.0)go  to  20 
c 

c     If  ot  hours  were  used,  add  to  appropriate  totals 
c 
c     Add  to  interstate  totals 

lot (unit )=lot (unit )+l 

tot (unit )=tot (unit )+ot 

otacc (unit )=otacc (unit )+acc 
c 
c     Add  to  total  system  totals 

lott (unit )=lott (unit )+l 

tott (unit )=tott (unit )+ot 

otacct (unit )=otacct (unit )+acc 
20   continue 

return 

end 

subroutine  oshlab(unit,crew, rh,ot, ace, llab,tacc,t crew, trh, tot, 

*  rhacc, otacc, lace, lrh, lot, llabt,tacct, tcrewt, 

*  trht, tott, rhacct, otacct, lacct, lrht, lott) 
c*********************************************************************** 

c*  ** 

c*  0SHLAB  ** 

c*  This   subroutine   tabulates    data   from  other  state  highway    labor        ** 

c*  records.      Two  sets   of    tabulations   are   made:  one  for   the              ** 

c*  other  state  highway   system,    and   one  for   the  total    (int  +  osh)   ** 

c*  system.  ** 

c*  ** 

c*         The   following  information  is    tabulated  by   subdistrict  ** 

c*  (management  unit):  ** 

c*  ** 
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c*  lace     —   the   total  number   of   times    the  activity  was   performed  ** 

c*  tacc     —   total  accomplishment    (amount   of  work   done)  ** 

c*  tcrew  —  total   of    crew  sizes   in  persons  ** 

c*  lrh       —  number  of    times   regular-time   labor  hours  were  ** 

c*  used  in  performance   of    the  activity  ** 

c*  trh       —  total  number   of   regular-time   labor  hours  used  ** 

c*  rhacc  —  total  accomplishment  when   regular-time   labor  hours  ** 

c*  were  used  ** 

c*  lot       —  number  of   time  overtime   labor  hours  were  used  ** 

c*  tot        —  total  number  of   overtime   labor  hours  used  ** 

c*  otacc  —  total  accomplishment  when  overtime   labor  hours  were  ** 

c*  used  ** 

c*  NOTE:      When   both   regular-time  and  overtime  are    reported   on  ** 

c*  the  same   crew  day   card,    there  is   now  way   to   determine  ** 

c*  how  much  of    the  work  was   done  on  regular-time  and  how  ** 

c*  much  on  overtime.     Therefore,    rhacc=otacc.  ** 

c*  ** 

c*  The  variables   listed  above   tabulate  the  information  for   the  ** 

c*  other  state  highway   system.     A  second  set   of   variables  ** 

c*  tabulates   information  for  the  total   (int   +  osh)   system.  ** 

c*  These  total   system  variables   are   named  as    those    listed  ** 

c*  above,    except   that   a    't'   is   appended  to  each  variable  name.  ** 


c* 
c* 


** 
** 

c*********************************************************************** 

integer  unit , crew, rh, ot , tcrew, trh, tot , tcrewt , t rht , tot t 

dimension  tacc (66) ,tcrew(66) ,trh(66) , tot (66) , rhacc (66), otacc (66) , 

*  lacc(66),lrh(66),lot(66),tacct(66),tcrewt(66),trht(66), 

*  tott(66),rhacct(66),otacct(66),lacct(66),lrht(66), 

*  lott(66) 
c 

c     Increment  total  counter,  llab,  unit  (subdistrict)  counter,  lace, 

c       and  add  accomplishment  and  crew  size  to  appropriate  totals. 

c 

c     Add  to  other  state  highway  totals 

llab=llab+l 

lacc(unit)=lacc(unit)+l 

tacc (unit )=tacc (unit )+acc 

t crew ( uni t )=t crew (unit )+crew 
c 
c     Add  to  total  system  totals 

llabt=llabt+l 

lacct (unit )=lacct (unit )+l 

tacct (unit )=tacct (unit )+acc 

tcrewt (unit )=tcrewt (unit )+crew 
c 
c     Check  if  reg  hours  were  reported 

if(rh.eq.0)go  to  10 
c 

c     Add  reg  hours,  accomplishment  to  appropriate  totals,  and 
c       increment  counter. 
c 
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c     Add  to  other  state  highway  totals 

lrh (unit )=lrh (unit )+l 

trh(unit)=trh(unit)+rh 

rhacc (unit )=rhacc (unit )+acc 
c 
c     Add  to  total  system  totals 

lrht  (unit  )=»lrht  (unit  )+l 

trht (unit )=trht (unit )+rh 

rhacct (unit )=rhacct (unit )+acc 
10   continue 
c 
c     Check  if  ot  hours  were  used 

if(ot.eq.0)go  to  20 
c 

c     If  ot  hours  were  used,  add  to  appropriate  totals. 
c 
c     Add  to  other  state  highway  totals 

lot (unit )=lot (unit )+l 

tot (unit )=tot (unit )+ot 

otacc(unit)=otacc(unit)+acc 
c 
c     Add  to  total  system  totals 

lott (unit )=lott (unit  )+l 

tott (unit )=tott (unit )+ot 

otacct (unit )=otacct (unit )+acc 
20   continue 

return 

end 

subroutine  rdmat (sm, qmax, lmat i , lmat o , qsml i , qsmlo , qsm2i , q sm2o , 

*  qsm3i, 

*  q sm3o , qsm4i , qsm4o , qsm5i , qsm5o , qsm6i , qsm6o , lsmli ,  lsmlo , 

*  lsm2i , lsm2o , lsm3i , lsm3o , lsm4i , lsm4o , lsm5i , lsm5o , 

*  lsm6i, lsm6o, lmi , lmo.acc, 

*  smlaci , smlaco, sm2aci , sm2aco, sm3aci , sm3aco, 

*  sm4aci , sm4aco , sm5aci , sm5aco , sm6aci , sm6aco , 

*  lmat t, qsml t,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t,lsmlt, 

*  lsm2t , lsm3t , lsm4t , lsm5t , lsm6t , lmt , smlact , sm2act , 

*  sm3act,sm4act,sm5act,sm6act) 

c*********************************************************************** 

c*  ** 

c*  RDMAT  ** 

c*  This  subroutine  will  read  and  tabulate  data  from  material       ** 

c*      records.  ** 

c*  ** 

c*  First,  the  material  record  is  read  and  checked  for  highway  ** 

c*  class.   If  the  record  is  for  the  interstate  system,  sub-  ** 

c*  routine  INTMAT  is  called  to  tabulate  the  data.   Subroutine  ** 

c*  OSHMAT  is  called  if  the  record  is  for  the  other  state  highway  ** 

c*  system.  These  subroutines  also  tabulate  the  data  for  the  ** 

c*  total  (int  +  osh)  highway  system.  ** 

c*  ** 

c*  ** 
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c*********************************************************************** 
c *********************************************************************** 

integer  sm,act , unit, date, co 

character  type*2,    class *3 

dimension  m(5),q(5),sm(6),qsmli(66),qsmlo(66),qsm2i(66),qsm2o(66), 

*  qsm3i(66),qsm3o(66),qsm4l(66),qsra4o(66),qsm5i(66), 

*  qsm5o(66),qsm6i(66),qsm6o(66),lsmli(66),lsmlo(66), 

*  lsm2i(66),lsm2o(66),lsm3i(66),lsm3o(66),lsm4i(66), 

*  lsm4o(66),lsm5i(66),lsm5o(66),lsra6i(66),lsm6o(66), 

*  lmi(66),lmo(66),qmax(6), 

*  smlaci ( 66 ) , smlaco (  66  ) , sm2aci ( 66 ) , sm2aco ( 66 ) , 

*  sm3aci  (  66  ) ,  sm3aco  (  66  ) ,  sm4aci  (  66 ) ,  sm4aco( 66 ) , 

*  sm5aci ( 66 ) , sm5aco ( 66 ) , sm6aci ( 66 ) , sra6aco ( 66 ) , 

*  qsmlt(66),qsm2t(66),qsm3t(66),qsm4t(66),qsm5t(66), 

*  qsm6t(66),lsmlt(66),lsm2t(66),lsm3t(66),lsra4t(66), 

*  Ism5t(66),lsm6t(66),lmt(66),smlact(66),sm2act(66), 

*  sm3ac t (  66  ) , sm4act ( 66 ) , sm5act ( 66 ) , sm6act ( 66 ) 
c 

c     Read  the  material  record 

read( 2 , 900 , err=l ) type , act , class , unit , dat e , route , no , co , 

*  (m(j),q(j),j=l,5) 

900  format(a2,i3,2x,a3,i2,5x,i6,a2,i3,i2,5(i4,f6.1)) 
c 

c     Check  class  and  call  appropriate  subroutine 

if (class. eq.'int')go  to  10 

if (class. eq.'osh')go  to  20 
c 
c  If   an  unexpected  class    is    read,    write  message  and  return   to  READ 

write(3,901)class 

901  format(//,lx,16h***DATA  CHECK***, lx, 

*  33hUnusual  class  designation,  classa,2x,a3) 
wri te ( 3 , 902 ) ty pe , act , class , uni  t , dat e , route , no , co , 

*  (m(j),q(j),j=l,5) 

902  format (lx,12hData  Record: ta2,i3,2x,a3,i2,5x,i6,a2,i3,i2, 

*  5(i4,f7.1)) 
write(3,903) 

903  format (lx,17hDetected  by  RDMAT) 
return 

c 

c     Write  an  error  message  if  an  error  in  reading  occurred 
1    write(3,*)'Error  reading  data  in  RDMAT  stmt  900' 
writ e( 3 , 902 ) type , act , class , unit , dat e , route , no , co , 

*  (m(j),q(j),j-l,5) 
return 

10   continue 
c 
c     Call  subroutine  INTMAT  to  tabulate  interstate  information 

call  intmat( type, act, class, unit, date, route, no, co, m,q,sm,qmax, 

*  lmat  i , qsml i , qsm2i , qsm3i , qsm4i , qsm5i , qsm6i , 

*  lsml i , lsm2i , lsm3i , lsm4i , lsm5i , lsm6i , lmi ,acc, 

*  smlaci , sm2aci , sm3aci , sm4aci , sm5aci , sm6aci , 

*  Imatt,qsmlt,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t, 

*  lsml t , lsm2t , lsm3t , lsm4t , lsm5t , lsm6t , lmt , 
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*  smlact , sm2act , sm3act , sm4act , sm5act , sm6act ) 
return 

20   continue 
c 

c     Call  subroutine  OSHMAT  to  tabulate  other  state  highway  information 
call  oshmat( type, act, class, unit, date, route, no, co, m,q,sm,qmax, 

*  lmat  o , qsmlo , qsm2o , qsm3o , qsm4o , qsm5o , qsm6o , 

*  lsmlo,lsm2o,lsm3o, lsm4o,lsm5o,lsm6o,lmo,acc, 

*  smlaco , sm2aco , sm3aco , sm4aco , sm5aco , sm6aco , 

*  lmat t , qsml t , qsm2t , qsm3t , qsm4t , qsm5t , qsm6t , 

*  lsml t , lsm2t , lsm3t , lsm4t , lsm5t , lsm6t , lmt , 

*  smlact , sm2act , sm3act , sm4act , sm5act , sm6act ) 
return 

end 

subroutine  intmat ( type , act , class , unit , dat e , route , no , co , m, q , sm, 

*  q max, lmat, qsml ,qsm2,qsm3,qsm4,qsm5,qsm6, 

*  lsml , lsm2 , lsm3 , lsm4 , lsm5 , lsm6 , lm, ace , 

*  smlac , sm2ac , sm3ac , sm4ac , sm5a  c , sm6ac , 

*  Imatt,qsmlt,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t, 

*  lsml t , lsm2t , lsm3t , lsm4t , lsm5t , lsm6t , lmt, 

*  smlact , sm2act , sm3act , sm4act , sm5act , sm6act ) 
c*********************************************************************** 

c*  ** 

c*  INTMAT  ** 

c*  This  subroutine  tabulates  data  from  interstate  material  rec-  ** 

c*  ords.  Two  sets  of  tabulations  are  made:  one  for  the  inter-  ** 

c*  state  system,  and  one  for  the  total  (int  +  osh)  system.  ** 

c*  ** 

c*    The  following  information  is  tabulated  by  subdistrict  (manage-  ** 
c*      ment  unit):  ** 

c*  ** 

c*  lm     —  total  number  of  material  records  read  ** 

c*  qsml   —  total  amount  of  specified  material  1  (specified  ** 

c*  material  1  is  the  first  material  listed  in  the  ** 

c*  input  parameter  file)  ** 

c*  lsml   — ■  total  number  of  times  specified  material  1  is  used  ** 

c*  smlac  —  total  work  accomplished  when  specified  material  1  ** 

c*  was  used  ** 

c*  These  three  variables,  qsm_,  lsm_,  and  sm_ac,  are  repeated  ** 

c*  for  each  specified  material,  1  through  6.  ** 

c*  ** 

c*      NOTE:  The  amount  of  work  accomplished  is  not  listed  on  the  ** 

c*  material  records;  it  is  only  listed  on  the  labor  rec-  ** 

c*  ords.   When  the  crew  day  card  data  are  entered  on  ** 

c*  computer  tape,  the  labor  record  is  immediately  follow-  ** 

c*  ed  by  the  corresponding  material  record.  Thus,  to  ** 

c*  tabulate  the  sm_ac  quantities,  it  is  assumed  that  the  ** 

c*  accomplishment  value  previously  read  by  subroutine  ** 

c*  INTLAB  corresponds  with  the  current  material  record.  ** 

c*  If  the  data  are  entered  out  of  this  seqence,  the  sm_ac  ** 

c*  quantities  will  not  be  correct.  ** 

c*  ** 
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c*  The   variables    listed  above   tabulate   the   information  for   the  ** 

c*  interstate  system.  A  second  set   of   variables   tabulates    the  ** 

c*  data  for   the   total  (int  +  osh)   system.      These   total   system  ** 

c*  variables   are  named  as   those  listed  above,    except  that   a  ** 

c*  't'   is  appended  to  each  variable   name.  ** 

c*  ** 

c*  ** 

c*********************************************************************** 
integer  act, unit, date, co,sm 
character  type*2,    class*3 
dimension  m(5),q(5),sm(6),qsml(66),qsm2(66),qsm3(66),qsm4(66) , 

*  qSm5(66),qsm6(66),lsml(66),lsm2(66),lsm3(66),lsm4(66), 

*  Ism5(66),lsm6(66),lm(66),qmax(6), 

*  smlac(66),sm2ac(66),sm3ac(66),sm4ac(66),sm5ac(66), 

*  sm6ac(66) ,qsmlt(66) ,qsm2t(66) ,qsm3t(66) ,qsm4t(66) , 

*  qsm5t(66),qsm6t(66),lsmlt(66),lsm2t(66),lsm3t(66), 

*  Ism4t(66),lsm5t(66),lsm6t(66),lmt(66),smlact(66), 

*  sm2act(66),sm3act(66),sm4act(66),sm5act(66),sm6act(66) 
c 

c  Increment  unit   counter 

lm(unit )=lm(unit )+l 

lmt  (unit  )=lmt  (unit  )+l 
c 

c  Check  materials.      If  material  is   one   of    the  specified  materials, 

c  add  to  appropriate   totals.      If   not,   write  unspecified   material 

c  message. 

k=l 
10       if(k.gt.5)go  to  90 

if(m(k).eq.0)go  to  20 

if (m(k).eq.sm(l))go   to   30 

lf(m(k).eq.sra(2))go   to   40 

if(m(k).eq.sm(3))go   to   50 

if (m(k).eq.sm(4))go   to  60 

if (m(k).eq.sm(5))go   to   70 

if(m(k).eq.sm(6))go   to  80 
c 
c  At   this   point,    must  have  an  unexpected  material.   Write   message. 

write(3,900)k,m(k) 

900  format(//,lx,16h***DATA  CHECK***, lx,23hUnexpected  material,   m( , 

*  il,2h)=,2x,i4) 

writ e( 3, 901) type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j=l,5) 

901  format (lx,12hData  Record: ,a2,i3,2x,a3,i2,5x,i6,a2,i3,i2, 

*  5(14, f7.1)) 
write(3,902) 

902  format (lx,18hDetected  by  INTMAT) 
20   k=k+l 

go  to  10 
c 

c     Check  if  quantity  is  greater  than  expected  maximum  quantity 
30   if(q(k).gt.qmax(l))go  to  31 
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c     Add  to  interstate  totals 

qsml (unit )=qsml (unit )+q (k) 

lsml (unit )=lsml (unit )+l 

smlac(unit )=smlac(unit )+acc 
c 
c     Add  to  total  system  totals 

qsml t (unit )=qsml t (unit )+q (k ) 

lsml t (unit )=lsmlt (unit )+l 

smlact (unit )=smlact (unit )+acc 

go  to  20 
c 

c     Write  message  if  quantity  is  greater  than  expected 
31    write(3,903)sm(l),q(k) 
903  format (/,lx,16h***DATA  CHECK***, 2x, 

*  23hLARGE  MATERIAL  QUANTITY, 2x,4hMAT=,2x, 14, 2x, 

*  5hQUAN=,2x,f7.1) 

write (3, 901) type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j=l,5) 
write(3,902) 

go  to  20 

40  if (q(k).gt.qmax(2))go  to  41 
c 

c     Add  to  interstate  totals 

qsm2 (unit )=qsm2 (unit )+q(k) 

Ism2(unit)=lsm2(unit)+1 

sm2ac(unit )=sm2ac(unit )+acc 
c 
c     Add  to  total  system  totals 

qsm2t (unit )=qsm2t (unit )+q (k) 

lsm2t (unit )=lsm2t (unit )+l 

sm2act (unit )=sm2act (unit )+acc 

go  to  20 

41  write(3,903)sm(2),q(k) 

write(3,901) type , act , class , unit , dat  e , r out e , no , co , 

*  (m(j),q(j),j=l,5) 
write(3,902) 

go  to  20 

50  if(q(k).gt.qmax(3))go  to  51 
c 

c     Add  to  interstate  totals 

qsm3 (unit )=qsm3 (unit )+q(k) 

lsm3(unit )=lsm3(unit )+l 

sm3ac(unit)=sm3ac(unit)+acc 
c 
c     Add  to  total  system  totals 

qsm3t (unit )=qsm3t (unit )+q (k) 

lsm3t(unit )=lsm3t(unit )+l 

sm3act (unit )=sm3act (unit )+acc 

go  to  20 

51  write(3,903)sm(3),q(k) 

writ e( 3, 901) type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j-l,5) 
write(3,902) 
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go  to  20 

60  if (q(k).gt.qmax(4))go  to  61 
c 

c     Add  to  interstate  totals 

qsm4(unit)=qsm4(unit)+q(k) 

Ism4(unit)=lsm4(unit)+1 

sm4ac(unit)=sm4ac(unit)+acc 
c 
c     Add  to  total  system  totals 

qsm4t (unit )=qsm4t (unit )+q (k) 

lsm4t (uni t )=lsm4t (unit )+l 

sm4act (unit )=sm4act (unit )+acc 

go  to  20 

61  write(3,903)sm(4),q(k) 

writ e( 3, 901 )type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j=l,5) 
write(3,902) 

go  to  20 

70  if(q(k).gt.qmax(5))go  to  71 
c 

c     Add  to  interstate  totals 

qsm5 (unit )=qsm5 (unit )+q(k) 

Ism5(unit)=lsm5(unit)+1 

sm5ac (uni t)=sm5ac (unit )+acc 
c 
c     Add  to  total  system  totals 

qsm5t (unit ) =qsm5t (unit )+q (k ) 

lsm5t(unit )=lsm5t (unit )+l 

sm5act (unit )=sm5act (unit )+acc 

go  to  20 

71  write(3,903)sm(5),q(k) 

write(3, 901)  type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j-l,5) 
write(3,902) 

go  to  20 

80  if(q(k).gt.qmax(6))go  to  81 
c 

c     Add  to  interstate  totals 

qsm6 (unit )=qsm6 (unit )+q (k) 

lsm6(unit )=lsm6(unit )+l 

sm6ac (uni t)=sm6ac (unit )+acc 
c 
c     Add  to  total  system  totals 

qsm6t (unit )=qsm6t (unit )+q (k ) 

lsm6t (unit )=lsm6t (unit )+l 

sm6act (unit )=sm6act (unit )+acc 

go  to  20 

81  wrlte(3,903)sm(6),q(k) 

wri  te( 3 , 90 1 ) type , act , class , unit , dat e , route , no , co , 

*  (m(j),q(j),j=l,5) 
write(3,902) 

go  to  20 
90   continue 
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return 
end 
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subroutine  oshmat( type, act, class, unit, date, route, no, co,m,q,sm, 

*  qmax,lmat,qsml ,qsm2,qsm3,qsm4,qsm5,qsm6, 

*  lsml , Ism2,lsm3,lsm4,lsm5,lsm6,lm,acc, 

*  smlac , sm2ac , sm3ac , sm4ac , sm5ac , sm6a  c , 

*  Imatt,qsmlt,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t, 

*  Ismlt,lsm2t,lsm3t,lsra4t, lsra5t, lsm6t,lmt, 

*  smlact , sm2act , sm3act , sm4act , sm5act , sm6act ) 

c*********************************************************************** 

c*  ** 

c*          OSHMAT  ** 

c*  ** 

c*          This   sbroutine   tabulates   data  from  other  state  highway   material  ** 

c*              records.     Two  sets   of   tabulations   are  made:    one  for   the  other  ** 

c*             state  highway   system,   and  one  for  the  total    (int  +  osh)   sys-  ** 

c*              tem.  ** 

c*  ** 

c*       The  following  information  is    tabulated  by   subdistrict    (manage-  ** 

c*           ment  unit):  ** 

c*  ** 

c*            lm         —  total   number   of   material   records    read  ** 

c*           qsml     —   total  amount   of   specified  material   1   used   (specified  ** 

c*                               material   1    is    the  first   material   listed  in   the   input  ** 

c*                              parameter  file)  ** 

c*            lsml     —  total   number   of    times    specified   material   1   was   used  ** 

c*            smlac  —  total  work  accomplished  when  specified  material   1  was  ** 

c*                              used  ** 

c*            These  three   variables,    qsm_,    lsm_,    and  am_ac,    are    repeated  for  ** 

c*                              for  each  specified  material,    1    through  6.  ** 

c*  ** 

c*            NOTE:      The  amount    of  work  accomplished   is   not    listed   on   the  ** 

c*                          material  records;    it    is   only  listed  on  the  labor  rec-  ** 

c*                           ords.      When  the   crew  day   card   data   are   entered  on   com-  ** 

c*                         puter  tape,    the  labor  record  is   immediately  followed  by  ** 

c*                          corresponding  material   record.     Thus,    to  tabulate   the  ** 

c*                           sm_ac  quantities,    it    is   assumed  that   the  accomplishment  ** 

c*                           value  previously   read  by   subroutine   INTLAB   corresponds  ** 

c*                          with   the   current   material   record.      If   the  data  are   not  ** 

c*                           entered   in   this   sequence,    the   sm_ac  quantities  will  not  ** 

c*                          be  correct.  ** 

c*  ** 

c*            The   variables    listed  above   tabulate   the  information  for   the  ** 

c*                other  state  highway   system.     A  second  set   of    variables   tab-  ** 

c*                ulates    the   data  for   the  total   (int  +  osh)   system.     These  ** 

c*                total  system  variables   are   named  as    those   listed  above,  ** 

c*                except   that   a    't'   is   appended  to  each  variable   name.  ** 

c*  ** 

c*  ** 

integer  act, unit, date, co.sm 

character  type*2,    class *3 

dimension  m(5) ,q(5),sm(6) ,qsml(66),qsm2(66),qsm3(66),qsm4(66), 
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*  qsm5(66),qsm6(66),lsml(66),lsm2(66),lsm3(66),lsm4(66), 

*  Ism5(66),lsm6(66),lm(66),qmax(6), 

*  smlac(66),sm2ac(66),sm3ac(66),sm4ac(66),sm5ac(66), 

*  sm6ac( 66 ) , qsml t ( 66 ) , qsm2 t ( 66 ) , qsm3 t ( 66 ) , qsm4t ( 66 ) , 

*  qsm5t(66),qsm6t(66),lsmlt(66),lsm2t(66),lsm3t(66), 

*  Ism4t(66),lsm5t(66),lsm6t(66),smlact(66),sra2act(66), 

*  sm3act ( 66 ) , sm4act ( 66 ) , sm5act ( 66 ) , sm6act ( 66 ) , lmt ( 66 ) 
c 

c  Increment  unit   counter 

lm(unit )=lm(unit )+l 

lmt (unit )=lmt (unit )+l 
c 

c  Check  materials.     If  material  is   one  of   the  specified  materials, 

c  add  to  appropriate  totals.      If  not,   write  unspecified  material 

c  message, 

c  Up  to  five  materials  may  be  listed  on  a  material  record. 

k=l 
10       if(k.gt.5)go  to  90 

if(m(k).eq.0)go   to   20 

if (m(k).eq.sm(l))go  to   30 

if(m(k).eq.sm(2))go   to   40 

if (m(k).eq.sm(3))go  to   50 

if (m(k).eq.sm(4))go   to  60 

if (m(k).eq.sm(5))go   to   70 

if (m(k).eq.sm(6))go   to   80 
c 
c  At   this   point,    must  have  an  unexpected  material.   Write   message. 

write(3,900)k,m(k) 

900  format (//,lx,16h***DATA  CHECK***, lx,23hUnexpected  material,    m( , 

*  il,2h)-,2x,i4) 

write(3, 901 )type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j-l,5) 

901  format (lx,12hData  Record: ,a2,i3,2x, a3,i2,5x,i6,a2, i3, 12, 

*  5(14, f7.1)) 
write(3,902) 

902  format (lx,18hDetected  by  OSHMAT) 
20   k=k+l 

go  to  10 
c 
c     Check  if  quantity  is  greater  than  expected  maximum  quantity 

30   if (q(k).gt.qmax(l))go  to  31 
c 
c     Add  to  other  state  highway  totals 

qsml (unit )=qsml (unit )+q (k) 

lsml (unit )=lsml (unit )+l 

smlac (unit ) =smlac (unit )+acc 
c 
c     Add  to  total  system  totals 

qsml t (unit )=qsml t (unit )+q (k ) 

lsml t (unit )=lsml t (unit )+l 

smlact (unit )=smlact (unit )+acc 

go  to  20 
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c     Write  message  if  quantity  is  greater  than  expected 
31   write(3,903)sm(l),q(k) 
903  format(/, lx,16h***DATA  CHECK***, 2x, 

*  23hLARGE  MATERIAL  QUANTITY, 2x,4hMAT=,2x,i4,2x, 

*  5hQUAN=,2x,f7.1) 

writ e ( 3 , 901 ) type , act , class , unit , dat e , route , no , co , 

*  (m(j),q(j),j=l,5) 
write(3,902) 

go  to  20 

40  if (q(k).gt.qmax(2))go  to  41 
c 

c     Add  to  other  state  highway  totals 

qsm2  (unit ) =qsm2 (unit )+q (k ) 

Ism2(unit)=lsm2(unit)+1 

sm2ac(unit)=sm2ac(unit)+acc 
c 
c     Add  to  total  system  totals 

qsm2t (uni t )=qsm2t (unit )+q (k ) 

lsm2t (unit )=lsm2t (unit )+l 

sm2act  (unit  )=»sm2act  (unit  )+acc 

go  to  20 

41  write(3,903)sm(2),q(k) 

wri t  e ( 3 , 90 1 ) ty pe , act , class , unit , dat  e , r out e , no , co , 

*  (m(j),q(j),j-l,5) 
write(3,902) 

go  to  20 

50  if (q(k).gt.qmax(3))go  to  51 
c 

c     Add  to  other  state  highway  totals 

qsm3 (unit )=qsm3 (unit )+q (k ) 

lsm3 ( uni  t ) =lsm3 ( uni  t )+l 

sm3ac(unit)=sm3ac(unit)+acc 
c 
c     Add  to  total  system  totals 

qsm3t (unit )=qsm3t (unit )+q (k ) 

lsm3t (unit )=lsm3t (unit )+l 

sm3act (unit )=sm3act (unit )+acc 

go  to  20 

51  write(3,903)sm(3),q(k) 

write(3,901) type , act , class , uni  t , dat  e , route , no , co , 

*  (m(j),q(j),j=l,5) 
write(3,902) 

go  to  20 
60   if (q(k).gt.qmax(4))go  to  61 
c 
c     Add  to  other  state  highway  totals 

qsm4 (unit )=qsm4 (unit )+q(k) 

lsm4(unit )=lsm4(unit )+l 

sm4ac (unit )=sm4ac (unit )+acc 
c 
c     Add  to  total  system  totals 

qsm4t (unit )=qsm4t (unit )+q (k ) 

lsm4t (unit )=lsm4t (unit )+l 
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sm4act (unit )=sm4act (unit )+acc 
go  to  20 
61   write(3,903)sm(4),q(k) 

write (3 , 901 ) type , act , class , unit , dat  e , route , no , co , 

*  (m(J),q(j),j-l,5) 
write(3,902) 

go  to  20 

70  if (q(k).gt.qmax(5))go  to  71 
c 

c     Add  to  other  state  highway  totals 

qsm5 (unit ) =qsm5 (unit )+q (k ) 

lsm5(unit )=lsm5 (unit )+l 

sm5ac (unit )=sm5ac (unit )+acc 
c 
c     Add  to  total  system  totals 

qsm5t (unit )=qsm5t (unit )+q  (k ) 

lsm5t (unit )=lsm5t (unit )+l 

sm5act (unit )=sm5act (unit )+acc 

go  to  20 

71  write(3,903)sm(5),q(k) 

writ e(3, 901 )type, act, class, unit, date, route, no, co, 

*  (m(j),q(j),j-l,5) 
write(3,902) 

go  to  20 

80  if(q(k).gt.qmax(6))go  to  81 
c 

c     Add  to  other  state  highway 

qsm6 (unit ) =qsm6 (unit )+q (k ) 

lsm6(unit )=lsm6(unit )+l 

sm6ac (unit )=sm6ac (unit )+acc 
c 
c     Add  to  total  system  totals 

qsm6t (unit )=qsm6t (unit )+q (k) 

lsm6t (unit )=lsm6t (unit )+l 

sm6act (unit )=sm6act (unit )+acc 

go  to  20 

81  write(3,903)sm(6),q(k) 

write(3,901 ) type , act , class , unit , dat  e , route , no , co , 

*  (m(j),q(j),j-l,5) 
write(3,902) 

go  to  20 
90   continue 

return 

end 

subroutine  outkey 
c ******************************************* **************************** 
c*********************************************************************** 
c*  ** 

c*    OUTKEY  ** 

c*  ** 

c*    This  subroutine  will  print  explanations  helpful  in  interpreting  ** 
c*      the  output.  ** 
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c*  ** 

c*  ** 

write(3,900) 

900  format(lhl,26hROUTINE  MAINTENANCE   REPORT, lOx, 

*  lOhOUTPUT  KEY) 
write(3,901) 

901  format(//,lx, 'Depending  on  the  maintenance  activity  being  analyzed 

*  and  the  output  options  selected,  up  to  twelve  pages  of  results', 

*  /,lx, 'per  highway  class  are  produced.  These  include  summaries  by 

*  subdistrict  of  labor  use,  material  use,  and  average  cost,  a', 

*  /,lx, 

*  'summary  by  district,    a  statewide  summary,    and  a  list  of   subdistr 
*icts  whose  cost  falls   outside  a  specified  range. ',/,lx, 

*  'Up   to  six  bar  charts  may  be  printed,    providing  a  graphical  di 
*splay   of   analysis    results.') 

write(3,902) 

902  format(/,lx,44hThe  list  below  will  help  in  interpreting  the.lx, 

*  7houtput.,/) 
write(3,903) 

903  format (lx,34hC0MM0N   TO  MOST  OF  THE  OUTPUT  PAGES,/   lx  34(lh-)) 
write(3,904) 

904  format (lx,43hUNIT  —  management   unit    , 

*  51h(subdistrict)   number;    even   "1000"  numbers    refer  to   , 

*  19hdistrict-wide  crews, /,28x, 

*  40he.g.,    2000  refers   to   crew  for  district  2) 
write(3,905) 

905  format (lx,27hCREW  DAYS  —    , 

*  52hthe   number  of   crew  day   card  records   included  in  the   , 

*  8hana lysis) 
write(3,906) 

906  format (/,lx,17hLAB0R  INFORMATION,/, lx, 17 (lh-)) 
write(3,907) 

907  format (lx,27hACC0MPLISHMENT,   TOTAL       —    , 

*  54htotal  amount   of  work   done,    measured  in  accomplishment    , 

*  26hunits   for  a   given  activity) 
write (3, 908) 

908  format (lx,27hACCOMPLISHMENT,   AVERAGE  —   , 

*  36haverage  accomplishment   per   crew  day    , 

*  34h(TOTAL  ACCOMPLISHMENT   /   CREW  DAYS)) 
write(3,909) 

909  format (lx,27hAVG  CREW  —    , 

*  28haverage   crew   size  in  persons) 
write(3,910) 

910  format (lx,27hT0T  RH  DAYS  —    , 

*  48htotal  number   of   crew  day   cards   on  which   regular    , 

*  25hlabor  hours  were   reported) 
write(3,911) 

911  format (lx,27hRH/ACC  —   , 

*  55haverage   number   of    regular   labor  hours  used  per  unit   of    , 

*  37haccomplishment   for  the   given  activity, /,28x, 

*  51h(T0T  RH  /   total  accomplishment   from  crew  day   cards    , 
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*  37hon  which   regular  hours  were   reported)) 
write(3,912) 

912  format (lx,27hAVGRH  —    , 

*  51haverage  number  of   regular   labor  hours    reported  per   , 

*  31hcrew   day    (TOT  RH   /  TOT  RH  DAYS)) 
write(3,913) 

913  format (lx,27hTOT  RH  —   , 

*  53htotal  number  of   regular   labor  hours    reported  for  the    , 

*  15hanalysis   period) 
write(3,914) 

914  format (lx,27hRH/TOT  DAYS  —    , 

*  51hfraction   of    the   time   regular   labor  hours  were  used   , 

*  25h(T0T  RH  DAYS    /   CREW  DAYS)) 
write(3,915) 

915  format (lx,27hT0T  OT  DAYS  —    , 

*  49htotal  number   of    crew  day   cards    on  which   overtime    , 

*  25hlabor  hours  were   reported) 
write(3,916) 

916  format (lx,27hOT/ACC  —    , 

*  56haverage   number   of   overtime   labor  hours  used  per  unit   of 

*  37haccomplishment  for  the  given  activity, /,28x, 

*  51h(T0T  OT  /  total  accomplishment  from  crew  day   cards   , 

*  38hon  which  overtime  hours  were   reported)) 
write(3,917) 

917  format (lx,27hAVGOT  —   , 

*  52haverage  number  of   overtime   labor  hours    reported  per   , 

*  31hcrew  day    (TOT  OT  /  TOT  OT  DAYS)) 
write(3,918) 

918  format (lx,27hTOT  OT  — ■   , 

*  54htotal  number  of   overtime   labor  hours    reported  for  the   , 

*  15hanalysis   period) 
write(3,919) 

919  format (lx,27h0T /TOT  DAYS  —    , 

*  52hfraction  of    the  time   overtime   labor  hours  were  used    , 

*  25h(TOT  OT  DAYS    /   CREW  DAYS)) 
write(3,920) 

920  format(/,lx,20hMATERIAL    INFORMATION,/, lx, 20 (lh-)) 
write(3,921) 

921  format (lx,27hMAT  XXXX  —    , 

*  44hmaterial,   where   xxxx  is   a   four-digit   number   , 

*  48hcorresponding  to  an  IDOH  Maintenance  Management    ,/,28x, 

*  20hSystem  Material  Code) 
write(3,922) 

922  format (lx,27hFRAC  —    , 

*  43hfraction   of    the   time   the   material  was  used   , 

*  49h(number  of   crew  cay   cards   on  which  material  xxxx    ,/,28x, 

*  25hwas    reported   /   CREW  DAYS)) 
write(3,923) 

923  format (lx,27hAVGQNT  --    , 

*  50haverage  quantity   of   material  used    (total  quantity    , 

*  42hof   material   xxxx  reported   /  number  of   crew,/,28x, 

*  46hday   cards   on  which  material   xxxx  was    reported)) 
write(3,924) 
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924  format(lx,27hQNT/AC  —    , 

*  56haverage  quantity   of   material  per  unit    of   accomplishment    , 

*  40h(total  quantity   of    material   xxxx   /    total, /,28x, 

*  20haccomplishment   from   , 

*  51hcrew  day   cards   on  which  material  xxxx  was   reported)) 
write(3,925) 

925  formatC/, lx,16hC0ST   INFORMATION, /, lx,16(lh-)) 
write(3,926) 

926  format (lx,27hTOTAL  ACCOMP  —    , 

*  20htotal  accomplishment) 
write(3,927) 

927  format (lx,27hTOT  COST  —    , 

*  53haverage  total  cost  per  accomplishment  unit   for   labor   , 

*  13hand  materials) 
write(3,928) 

928  format ( lx, 27hLAB  COST  —    , 

*  42haverage   labor   cost  per  accomplishment  unit) 
write(3,929) 

929  format (lx,27hMAT   COST  —    , 

*  44haverage  material   cost  per  accomplishmet  unit) 
write (3, 930) 

930  format (lx,27hCOSTS   BY  MATERIAL  —    , 

*  54haverage   cost  per  accomplishment  unit   for  each  material) 
return 

end 

subroutine  calint (iact , ibm, iby , iem, iey , nmat , sm, csm, crh, co t , llabi , 

*  tacci,tcrewi,trhi,toti,rhacci, 

*  otacci , lacci , lrhi , lo ti , lmat  i , qsmli , qsm2i , qsm3i , 

*  qsm4i ,qsm5i , qsm6i , lsmli , lsm2i , lsm3i , lsm4i , lsm5i, 

*  lsm6i , lmi , idev, sdev, smlaci , sm2aci , sm3aci , 

*  sm4aci , sm5aci , sm6aci , dsm, usm, dact ,uact , 

*  icost,ihours,itacc,iavacc,icrew,imat) 
c*********************************************************************** 
c*********************************************************************** 

c* 

c*    CALINT  ** 

.  ** 

c* 

c*    This  subroutine  will  call  various  subroutines  to  perform  the    ** 

c*      desired  calculations  with  the  interstate  system  data. 

** 


c 


c"  First,  subroutine  CALLAB  is  called  to  calculate  and  print  a 

c*  summary  of  labor  use.  Next,  subroutine  CALMAT  calculates  and  ** 

c*  prints  material  use  information.  Then  subroutine  COST  is  ** 

c*  called  to  calculate  and  print  average  cost  for  performing  the  ** 

c*  activity.  A  summary  of  labor,  materials,  and  cost  by  dis- 

c*  trict  and  for  the  state  as  a  whole  are  calculated  by  subrou-  ** 

c*  tine  DSTSUM.  ** 

c*  If  an  analysis  is  to  be  done  to  identify  subdistricts  whose  ** 

c*  cost  falls  outside  a  specified  number  of  standard  deviations  ** 

c*  about  the  mean,  subroutine  DEVCST  will  be  called.  ** 

c* 

c*  Finally,  if  any  bar  charts  are  to  be  printed,  the  appropriate  ** 

c*  subroutines  will  be  called  to  print  them.  ** 


c 
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c*  ** 

c*  ** 

c*********************************************************************** 
c*** ******************************************************************** 

integer  sm, tcrewi , trhi , toti , dunit 
character  dsra*40 ,usm*20 ,dact*40 ,uact*20 
dimension  sm(6),csm(6),tacci(66),tcrewi(66) , 

*  trhi(66),toti(66),rhacci(66), 

*  otacci(66),lacci(66),lrhi(66),loti(66),qsmli(66), 

*  qsm2i(66),qsm3i(66),qsm4i(66),qsm5i(66),qsm6i(66), 

*  Ismli(66),lsm2i(66),lsm3i(66),lsm4i(66),lsm5i(66), 

*  lsm6i(66),lmi(66),arhi(66),aoti(66),frhi(66), 

*  foti(66),fsmli(66),fsm2i(66),fsm3i(66),fsm4i(66), 

*  fsm5i(66),fsm6i(66),asmli(66),asm2i(66),asm3i(66), 

*  asm4i ( 66 ) , asm5i ( 66 ) , asm6i ( 66 ) , smlaci ( 66 ) , sm2aci ( 66 ) , 

*  sm3aci ( 66  ) , sm4aei ( 66 ) , sm5aci ( 66 ) , sm6aci ( 66 ) , prhi ( 66 ) , 

*  poti(66),pthi(66),psmli(66),psm2i(66),psm3i(66), 

*  psm4i(66),psm5i(66),psm6i(66),dunit(20),dsm(6),usm(6), 

*  actoti(66),aaeci(66),acrewi(66) 
c 

c  Set   variable  to  tell  summary  and  bar  chart   routines  what 

c  the  highway  class    is 

c  iclass=0  for  interstate 

iclass=0 
c 

c  Call  subroutine  to  calculate  and  print   labor  info 

call  callab(iact,dact,uact,ibm,iby,iem,iey,iclass, 

*  llabi , tacci , tcrewi , trhi , toti , rhacci , otacci , 

*  lacci, lrhi, lot i,arhi,f rhi,aoti,f oti, prhi, pot i,pthi, 

*  aacci,acrewi> 
continue 

c 

c     Calculate  interstate  material  data 

c 

c     If  no  materials  have  been  specified,  skip  the  material  routines. 

if (nmat.eq.O)go  to  1 
c 
c     Call  subroutine  to  calc  and  print  material  info 

call  calmat (iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  sm, Imati,qsmli,qsm2i,qsm3i,qsm4i,qsm5i,qsm6i, 

*  Ismli,lsm2i,lsm3i,lsm4i,lsm5i,lsm6i, lacci, 

*  f smli,f sm2i,f sm3i,f sm4i,f sm5i,f sm6i,asmli,asm2i, 

*  asm3i,asm4i,asm5i,asm6i, 

*  smlaci , sm2aci , sm3aci , sm4aci , sm5aci , sm6aci , 

*  psmli,psm2i,psm3i,psm4i,psm5i,psm6i) 
1    cont  inue 

c 

c     Call  subroutine  to  calculate  and  print  interstate  cost  data 
call  cost (iact, dact, uact, ibm, iby, iem, iey, iclass, 

*  sm, csm, crh , cot , lacci , tacci , arhi , aot i , f  rhi , f ot  i , 

*  fsmli,f sm2i,f sm3i,f sm4i,f sm5i,f sm6i,asmli,asm2i, 

*  asm3i,asm4i,asm5i,asm6i,actoti) 
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c  Call  subroutine   to   calculate  and  print   district   and  state   labor 

c  summaries 

call  ds tsum(iact , dact , uact , ibm, iby , iem, iey , iclass , tacci , tcrewi , 

*  trhi , toti , rhacci ,atacci , lacci , lrhi , loti ,arhi , f rhi, ' 

aoti,foti,sm,qsmli,qsm2i,qsm3i,qsm4i,qsm5i,qsm6i, 

*  lsml i , lsm2i , lsm3i , lsm4i , lsm5i , lsm6i , smlaci , sm2aci , 
sm3aci , sm4aci , sm5aci , sm6aci , csm, crh , cot ) 


c 


c     Check  if  deviation  analysis  is  to  be  done. 
if(idev.eq.0)go  to  700 
go  to  600 


c     Find  deviations  based  on  cost  per  unit  accomplisment 
600  continue 


c 


call  devest (iact , dact , ibm, iby , iem, iey, iclass , 

idev, sdev, act ot  i , nuni t , duni  t , avg , uact ) 


700  continue 
c 

c     Print  desired  bar  charts 
c 
c     Chart  for  average  cost 

if(icost.eq.0)go  to  710 

i chart =0 

call  stdev(actoti,vmax,avg,sd,am3,am2,aml,apl,ap2,ap3) 
call  bar (iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, 

*  sm(imat),usm(imat),actoti, 

*  tacci , aacci , lacci , vmax, avg, sd , am3 , am2 , ami , apl , ap2 , ap3 ) 
710  continue 

c 

c  Chart  for   labor  hours 

if (ihours.eq.O)go   to   750 

ichart=l 

call  stdev(pthi, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 

call   bar (iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, 

*  sm(imat),usm(imat),actoti, 

*  tacci , aacci , p thi , vmax, avg, sd , am3 , am2 , ami , ap 1 , ap2 , ap3 ) 
750  continue 

c 

c     Chart  for  total  accomplishment 

if (itacc.eq.O)go  to  720 

ichart=2 

call  stdev(tacci, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 
call  bar(iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, 

*  sm(imat),usm(imat),actoti, 

*  tacci , aacci , lacci , vmax, avg, sd, am3 , am2 , ami , apl , ap2 , ap3 ) 
720  continue 

c 

c     Chart  for  average  accomplishment 

if (iavacc.eq.O)go  to  730 

ichart =3 


c 


c 
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call  s tdev(aacci , vmax, avg, sd ,am3 , am2 , ami , apl , ap2 , ap3 ) 
call  bar(iact , dact , uact , ibm, iby , iem, ley , lclass , ichart , 

*  sm(imat),usm(imat) .actoti, 

*  tacci, aacci, lacci, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 
730     continue 

\  Chart   for  average   crew  size 

if (icrew.eq.O)go  to  740 
ichart =4 

call  stdev(acrewi, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 
call  bar (iact, dact, uact, ibm, iby, iem.iey.iclass, ichart, 

*  sm(imat),usm(imat), actoti, 

*  tacci,aacci,acrewi, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 
740  continue 

:     Chart  for  material  productivity 
if(imat.eq.0)go  to  760 
ichart=»5 

if (imat.ne.l)go  to  761 

call  stdev(psmli, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 
call  bar(iact, dact, uact, ibm, iby, iem, ley, iclass, ichart, sm(imat), 

*  usm(imat ) , actoti , tacci , aacci , psml i , vmax, avg , sd, am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

761  continue 

if (imat.ne.2)go  to  762 

call  stdev(psm2i, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 

call  bar (iact , dact , uact , ibm, iby , iem, ley , iclass , ichart , sm( imat ) , 

*  usm(imat ) .actoti , tacci , aacci , psm2i , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

762  continue 

if (imat.ne.3)go  to  763 

call  stdev(psm3i, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 

call  bar (iact, dact, uact, ibm, iby, iem, ley, iclass, ichart, sm( imat), 

*  usm(imat ) , actoti , tacci , aacci , psm3i , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

763  continue 

if (imat.ne.4)go  to  764 

call  stdev(psm4i, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 

call  bar (iact, dact, uact, ibm, iby, iem, ley, iclass, ichart, sm( imat ), 

*  usm(  imat ) , actoti , tacci , aacci , psm4i , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

764  continue 

if (imat. ne. 5) go  to  765 

call  stdev(psm5i, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 

call  bar (iact, dact, uact, ibm, iby, iem, ley, iclass, ichart, sm(imat), 

*  usm(imat ), actoti, tacci , aacci , psm5i , vmax, avg , sd, am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

765  continue 
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* 


if (imat.ne.6)go  to  760 

call  Stdev(p8m6i,vmax,avg,sd,am3,am2,aml,apl,ap2,ap3) 

call  bar(iact,dact,uact,ibm,iby,lem,ley,iclas8,ichart,sm(iniat), 

usm(imat),actoti,tacci,aaccl,psm6i,vmax,avg,8d,am3,am2 
*        aml,apl,ap2,ap3)  ' 

760  continue 

return 

end 
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subroutine  calosh(iact , ibm, iby , iem, ley , nmat , sm, csm, crh,  cot ,  llabo , 

*  tacco,tcrewo,trho,toto,rhacco, 

*  otacco,lacco,lrho,loto,lmato,qsmlo,qsm2o,qsm3o, 

*  qsm4o , qsm5o , qsm6o , lsmlo , lsm2o , lsm3o , lsm4o , lsm5o , 

*  lsm6o, lmo, idev, sdev, smlaco, sm2aco, sm3aco, 

*  sm4aco , sm5aco , sm6aco , dam, usm, dact , uact , 

*  icost,ihours,itacc,iavacc,icrew,iniat) 

c*  ** 

c*  CALOSH  ** 

c*  ** 

c*  This   subroutine  will   call  various   subroutines   to  perform  the  ** 

c*  desired  calculations  with   the  other  state  highway   system  ** 

c*  data.      It   is  parallel  to  subroutine  CALINT,    performing  the  ** 

c*  same  functions  with   other  state  highway   data  that   CALINT   does  ** 

c*  with  interstate   data.  ** 

c*  ** 

c*  First,    subroutine  CALLAB   is   called  to   calculate  and  print  a  ** 

c*  summary   of   labor  use.      Next,    subroutine   CALMAT   calculates   and  ** 

c*  prints  material  use  information.     Then  subroutine  COST  is  ** 

c*  called  to  calculate  and  print  average  cost  for  performing  the  ** 

c*  activity.     A  summary   of    labor,   materials,    and  cost   by   dis-  ** 

c*  trict  and  for  the  state  as   a  whole  are   calculated  by   subrou-  ** 

c*  tine  DSTSUM.  ** 

c*  If   an  analysis   is    to  be   done   to  identify   subdistricts  whose  ** 

c*  cost  falls   outside  a  specified  number   of   standard   deviations  ** 

c*  about   the  mean,    subroutine  DEVCST  will  be   called.  ** 

c*  ** 

c*  Finally,    if   any   bar  charts   are  to  be  printed,    the  appropriate  ** 

c*  subroutines  will  be   called  to  print   them.  ** 

c*  ** 

c*  ** 

integer  sm, tcrewo,trho,toto,dunit 

character   dsm*40,usm*20,dact*40,uact*20 

dimension  sm(6),csm(6),tacco(66),tcrewo(66),trho(66),toto(66), 

*  rhacco(66),otacco(66),lacco(66),lrho(66),loto(66), 

*  q  sml 0(66) , qsm2o ( 66 ) , qsm3o ( 66 ) , q sm4o ( 66 ) , qsm5o ( 66 ) , 

*  qsm6o(66),lsmlo(66),lsm2o(66),lsm3o(66),lsm4o(66), 

*  lsm5o(66),lsm6o(66),lmo(66),arho(66),aoto(66),frho(66), 

*  foto(66),fsmlo(66),fsm2o(66),fsm3o(66),fsm4o(66), 

*  fsm5o(66),fsm6o(66),asmlo(66),asm2o(66),asm3o(66), 

*  asm4o ( 66 ) , asm5o ( 66 ) , asm6o ( 66 ) , smlaco ( 66 ) , sm2aco ( 66 ) , 

*  sm3aco ( 66 ) , sm4aco ( 66 ) , sm5aco ( 66 ) , sm6aco ( 66 ) , prho ( 66 ) , 

*  poto(66),ptho(66) ,psmlo(66),psm2o(66) ,psm3o(66) ,psm4o(66), 

*  psm5o(66),psm6o(66),dunit(20),dsm(6),usm(6),actoto(66), 

*  aacco(66),acrewo(66) 
c 

c     Set  variable  to  tell  summary  and  bar  chart  routines  highway  class 
c       iclass=l  for  other  state  highway 
iclass=l 
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c 

c     Call  subroutine  to  calculate  and  print  labor  info 
call  callab (iact , dact , uact , ibm, iby , iem, ley , iclass , 

*  llabo , tacco , tcrewo , trho , toto , rhacco , otacco , 

*  lacco,lrho,loto,arho,f rho,aoto,foto,prho,poto,ptho, 

*  aacco.acrewo) 
c 

c     Calculate  material  data 

c 

c     If  no  materials  are  specified,  skip  material  routines. 

if (nmat.eq.O)go  to  1 
c 
c     Call  subroutine  to  calculate  and  print  material  info 

call  calmat (iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  sm, lmato,qsmlo,qsm2o,qsm3o,qsm4o,qsm5o,qsm6o, 

*  lsmlo , lsm2o , lsm3o , lsm4o , lsm5o , lsm6o , lacco , 

*  f smlo , f sm2o , f sm3o , f sm4o , f sm5o , f sm6o , asmlo , asm2o , 

*  asm3o,asm4o,asm5o,asm6o, 

*  smlaco , sm2aco , sm3aco , sm4aco , sm5aco , sm6aco , 

*  psmlo,psm2o,psm3o,psm4o,psm5o,psm6o) 
1    continue 

c 

c     Call  subroutine  to  calculate  and  print  cost  data 
call  cost (iact , dact , uact , ibm, iby , iem,iey , iclass , 

*  sm, csm, crh , cot , lacco , tacco , arho , aoto , f rho , f ot o , 

*  fsmlo,f sm2o,fsm3o,f sm4o,fsm5o,f sm6o, asmlo, asm2o, 

*  asm3o,asm4o,asm5o,asm6o,actoto) 
c 

c  Calculate  and  print   district  and  state  labor  totals 

call   dstsum(iact, dact, uact, ibm, iby, iem, iey, iclass, tacco, tcrewo, 

*  trho , toto , rhacco , otacco , lacco , lrho, loto , arho , f  rho , aoto , 

*  foto,sm,qsmlo,qsm2o,qsm3o,qsm4o,qsm5o,qsm6o, lsmlo, 

*  lsm2o , lsm3o , lsm4o , lsm5o , Is  m6o , sml aco , sm2aco , sm3aco , 

*  sm4aco, sm5aco, sm6aco, csm, crh, cot ) 
c 

c 

c  Check  if   deviation  analysis   is   to  be   done. 

if(idev.eq.O)go  to  700 

go  to  600 
c 
c 
c     Find  deviations  based  on  cost  per  unit  accomplisment 

600  continue 
c 

call  devest (iact , dact , ibm, iby , iem, iey , iclass , 

*  idev,sdev, act oto,nunit,dunit,avg, uact) 
700  continue 

c 

c  Print   desired  bar  charts 

c 

c     Check  for  average  cost  chart 

if (icost.eq.O)go  to  710 

i chart =0 


c 


c 


c 
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call  s tdev (act oto, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 
call  bar (iact , dact , uact , ibm, iby , iem, ley , iclass , ichart , 

*  sm(imat),usm(imat ) ,actoto, 

*  tacco, aacco, lacco, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 
710     continue 

:  Check  for  labor  hours   chart 

if (ihours.eq.O)go  to  750 
ichart=l 

call  stdev(ptho, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 
call  bar (iact, dact, uact, ibm, iby, iem, ley, iclass, ichart, 

*  sm(imat),usm(imat),actoto, 

*  tacco, aacco, ptho, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 
750  continue 

:     Check  for  total  accomplishment  chart 
if (itacc.eq.O)go  to  720 
ichart =2 

call  stdev(tacco,vmax,avg,sd,am3,am2,aml,apl,ap2,ap3) 
call  bar (iact , dact , uact , ibm, iby , iem, iey , iclass , ichart , 

*  sm(imat ),usm(imat ),actoto, 

*  tacco , aacco , lacco , vmax, avg , s  d , am3 , am2 , ami , ap 1 , ap2 , ap3 ) 
720  continue 

:     Check  for  average  accomplishment  chart 
if (iavacc.eq.O)go  to  730 
ichart=3 

call  stdev(aacco, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 
call  bar (iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, 

*  sm(imat),usm(imat),actoto, 

*  tacco, aacco , lacco , vmax, avg, sd , am3 , am2 , ami , apl , ap2 , ap3 ) 
730  continue 

:     Check  for  average  crew  size  chart 
if (icrew.eq.O)go  to  740 
ichart =4 

call  stdev(acrewo, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 
call  bar (iact , dact , uact , ibm, iby , iem, iey , iclass , ichart , 

*  sm(imat ),usm(imat ),actoto, 

*  tacco, aacco, acrewo, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 
740  continue 

:     Chart  for  material  productivity 
if (imat.eq.O)go  to  760 
ichart=5 

if (imat.ne.l)go  to  761 

call  s tdev( psmlo , vmax , avg , sd , am3 , am2 , ami , ap 1 , ap2 , ap 3 ) 
call  bar (iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, sm(imat), 

*  usm( imat ) , actot o , tacco , aacco , psmlo , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

761  continue 

if (imat.ne.2)go  to  762 


c 


c 
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call  stdev(psm2o, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 

call  bar (iact , dact ,uact , ibm, iby , iem, ley , iclass , ichart , sm(imat ) , 

*  usm(imat),actoto, tacco, aacco, psm2o, vmax, avg, sd,am3,am2, 

*  ami ,apl ,ap2,ap3) 
go  to  760 

762  continue 

if (imat.ne.3)go  to  763 

call  stdev(psm3o, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 

call  bar (iact, dact, uact, ibm, iby, iem, ley, iclass, ichart, sm(imat), 

*  usm( imat ) , act ot  o , tacco , aacco , psm3o , vmax, avg , s  d , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

763  continue 

if (imat. ne. 4) go  to  764 

call  s tdev(psm4o , vmax, avg , sd , am3 , am2 , ami , ap 1 , ap 2 , ap3 ) 

call  bar(iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, sm(imat), 

*  usm(  imat), act oto, tacco, aacco, psm4o, vmax, avg, sd,am3,am2, 

*  aml,apl,ap2,ap3) 
go  to  760 

764  continue 

if (imat.ne.5)go  to  765 

call  stdev(psm5o, vmax, avg, sd,am3,am2, ami, apl ,ap2,ap3) 

call  bar(iact, dact, uact, ibm.iby, iem, iey, iclass, ichart, sm(imat), 

*  usm(imat ) , act oto , tacco , aacco , psm5o , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

765  continue 

if (imat.ne.6)go  to  760 

call  stdev(psm6o, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 

call  bar(iact, dact, uact, ibm,iby, iem, iey, iclass, ichart, sm(imat), 

*  usm(imat ) , act  ot  o , tacco , aacco , psm6o , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
760  continue 

return 

end 

subroutine  caltot (iact , ibm, iby , iem, iey , nmat , sm, csm, crh , co t , llabt , 

*  tacct,tcrewt,trht,tott,rhacct, 

*  otacct , lacct , lrht , lo tt , lmatt , qsml t , qsm2t , qsm3 1 , 

*  qsm4t ,qsm5t , qsm6t , lsml t , lsm2t , lsm3t , lsm4 1 , lsm5t , 

*  lsm6t , lmt , idev, sdev, smlact , sm2act , sm3act , 

*  sm4act , sm5act , sm6act , dsm,usm, dact , 

*  uact , icos  t , ihours , it ace , iavacc , icrew , imat ) 
c*********************************************************************** 

c*  ** 

c*    CALTOT  ** 

c*  ** 

c*  This  subroutine  will  call  various  subroutines   to  perform  the  ** 

c*  desired  calculations  with   the   total    (int  +  osh)  highway   sys-  ** 

c*  tern.      It   is  parallel  to  CALINT  and  CAL0SH,    performing  the  ** 

c*  calculations  with   the  total   system  data.  ** 

c*  ** 

c*         First,    subroutine  CALLAB   is    called  to   calculate  and  print   a  ** 
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c*  summary  of  labor  use.  Next,  subroutine  CALMAT  calculates  and  ** 

c*  prints  material  use  information.  Then  subroutine  COST  is     ** 

c*  called  to  calculate  and  print  average  cost  for  performing  the  ** 

c*  activity.  A  summary  of  labor,  materials,  and  cost  by  dis-    ** 

c*  trict  and  for  the  state  as  a  whole  are  calculated  by  subrou-  ** 

c*  tine  DSTSUM.                                            ** 

c*  If  an  analysis  is  to  be  done  to  identify  subdistricts  whose     ** 

c*  cost  falls  outside  a  specified  number  of  standard  deviations  ** 

c*  about  the  mean,  subroutine  DEVCST  will  be  called.            ** 

c*  ** 

c*    Finally,  if  any  bar  charts  are  to  be  printed,  the  appropriate   ** 

c*      subroutines  will  be  called  to  print  them.  ** 

c*  ** 

c*  ** 

c******************************************** 

c ********************************************************* * ************* 

integer  sm, tcrewt , trht , t ott , dunit 

character  dsm*40,usm*20,dact*40,uact*20 

dimension  sm( 6 ) , csm( 6 ) , tacct ( 66 ) , tcrewt ( 66 ) , 

*  trht(66),tott(66),rhacct(66),otacct(66),lacct(66), 

*  lrht(66),lott(66),qsmlt(66),qsm2t(66),qsm3t(66), 

*  qsm4t(66),qsm5t(66),qsm6t(66),lsmlt(66),lsm2t(66), 

*  Ism3t(66),lsm4t(66),lsm5t(66),lsm6t(66),lmt(66), 

*  arht(66),aott(66),frht(66),fott(66),fsmlt(66),fsm2t(66), 

*  fsm3t(66),fsm4t(66),fsm5t(66),fsm6t(66),asmlt(66), 

*  asm2t(66),asm3t(66),asm4t(66),asm5t(66),asm6t(66), 

*  smlact ( 66 ) , sm2act ( 66 ) , sm3act ( 66 ) , sm4act ( 66 ) , sm5act ( 66 ) , 

*  sm6act(66),prht(66),pott(66),ptht(66),psmlt(66), 

*  psm2t(66),psm3t(66),psm4t(66),psm5t(66),psm6t(66), 

*  dunit (20 ) , dsm( 6 ) , usm( 6 ) , actott ( 66 ) , aacct ( 66 ) , acrewt ( 66 ) 
c 

c  Set   variable  to  tell  summary  and  bar  chart   routines   highway   class 

c  iclass=2  for  total 

i class  =2 
c 
c  Call  subroutine  to  calculate  and  print   labor  info 

call  callab(iact,dact,uact,ibm,iby,iem,iey,iclass, 

*  llabt , tacct , tcrewt , trht , tott , rhacct , otacct , 

*  lacct,lrht,lott,arht,frht,aott,f ott, prht, pott, ptht, 

*  aacct, acrewt) 
c 

c  Calculate  material  data 

c 

c     If  no  materials  have  been  specified,  skip  material  routines. 

if (nmat.eq.O)go  to  1 
c 
c     Call  subroutine  to  calculate  and  print  material  info 

call  calmat(iact,dact,uact,ibm,iby,iem,iey,iclass, 

*  sm, lmatt , qsml t , qsm2t , qsm3 t , qsm4t , qsm5t , qsm6t , 

*  lsml t , lsm2t , lsm3t , lsm4t , lsm5t , lsm6t , lacct , 

*  f Smlt,fsm2t,fsm3t,fsm4t,fsm5t,fsm6t,asmlt,asm2t, 

*  asm3t,asm4t,asm5t,asm6t, 

*  smlact , sm2act , sm3act , sm4act , sm5act , sm6act , 
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*  psmlt,psm2t,psm3t,psm4t,psm5t,psm6t) 
1    continue 

c 

c     Call  subroutine  to  calculate  and  print  cost  data 
call  cost(iact,dact,uact,ibm,iby,iem,iey, iclass, 

*  sm, csm, crh, cot , lacct , tacct , arht , aott ,  f  rht , f ott , 

*  fSmlt,fsm2t,fsm3t,fsm4t,fsm5t,fsm6t,asmlt,asm2t, 

*  asm3t,asm4t,asm5t,asm6t,actott) 

c 

c     Calculate  and  print  district  and  state  labor  totals 

call  dstsum(iact, dact, uact, ibm,  iby, iem.iey, iclass, tacct, tcrewt, 

*  trht , tott , rhacct , otacct , lacct , lrht , lott , arht , f rht , aott , 

*  fott,sm,qsmlt,qsm2t,qsm3t,qsm4t,qsm5t,qsm6t,lsmlt,lsm2t, 

*  lsm3t , lsm4t , lsm5t , lsm6t , smlact , sm2act , sm3act , sm4act , sm5act , 

*  sm6act,csm, crh, cot) 
c 

c 

c  Check  if   deviation  analysis   is   to  be   done. 

if(idev.eq.O)go  to  700 

go  to  600 
c 
c 
c     Find  deviations  based  on  cost  per  unit  accomplisment 

600  continue 
c 

call  devest (iact , dact , ibm, iby , iem, iey , iclass , 

*  idev, sdev, act ott , nunit , dunit , avg, uact ) 
700  continue 

c 

c  Print   desired  bar  charts 

c 

c  Check  for  average   cost   chart 

if(icost.eq.0)go  to  710 

i chart =0 

call  stdev(actott,vmax,avg,sd,am3,am2,aml,apl ,ap2,ap3) 

call  bar (iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, 

*  sm( imat ) , usm( imat ) , act  ott , 

*  tacct, aacct, lacct, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 

710  continue 
c 
c     Check  for  labor  hours  chart 

if (ihours.eq.O)go  to  750 

ichart=l 

call  stdev(ptht, vmax, avg, sd,am3,am2, ami, apl ,ap2,ap3) 

call  bar (iact, dact, uact, ibm, iby, iem, iey, iclass, ichart, 

*  sm(imat),usm(imat),actott, 

*  tacct, aacc.ptht, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 

750  continue 
c 
c     Check  for  total  accomplishment  chart 

if (itacc.eq.O)go  to  720 

i  chart  =»2 

call  stdev( tacct, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 
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call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart, 

*  sm(imat),usm(imat),actott, 

*  tacct , aacct , lacct , vmax, avg, sd , am3 , am2 , ami , ap 1 , ap2 , ap3 ) 
720  continue 


c 


c 


c 


i     Check  for  average  accomplishment  chart 
if (iavacc.eq.O)go  to  730 
i chart =3 

call  stdev(aacct , vmax, avg , sd , am3 , am2 , ami , ap 1 , ap2 , ap3 ) 
call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart, 

*  sm(imat) ,usm(imat),actott , 

*  tacct , aacct , lacct , vmax, avg, sd , am3 , am2 , ami , apl , ap2 , ap3 ) 
730  continue 

i     Check  for  averge  crew  size  chart 
if (icrew.eq.O)go  to  740 
i chart =4 

call  stdev(acrewt, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 
call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart, 

*  sm(imat),usm(imat),actott, 

*  tacct, aacct, acrewt, vmax, avg, sd,am3,am2, ami, apl, ap2,ap3) 
740  continue 

:     Chart  for  material  productivity 
if(imat.eq.0)go  to  760 
ichart=5 

if (imat.ne.l)go  to  761 

call  s tdev(psml t , vmax, avg , sd , am3 , am2 , ami , ap 1 , ap2 , ap3 ) 
call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart,sm(imat), 

*  usm(imat ) ,actott , tacct , aacct , psml t , vmax, avg , sd,am3 , am2 , 

*  ami ,apl,ap2,ap3) 
go  to  760 

761  continue 

if (imat.ne.2)go  to  762 

call  stdev(psm2t, vmax, avg, sd,am3,am2, ami, apl ,ap2,ap3) 

call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart,sm(imat), 

*  usm(imat ) , actott , tacct , aacct , psm2 t , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

762  continue 

if (imat.ne.3)go  to  763 

call  stdev(psm3t, vmax, avg, sd,am3,am2, ami ,apl ,ap2,ap3) 

call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart,sm(imat), 

*  usm( imat ) , act  ott , tacct , aacct , psm3 1 , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

763  continue 

if (imat.ne.4)go  to  764 

call  stdev(psm4t, vmax, avg, sd,am3,am2, ami , apl ,ap2,ap3) 

call  bar (iact,dact,uact,ibm,iby,iem,iey,iclass,ichart,sm( imat), 

*  usm( imat ) , actott , tacct , aacct , psm4t , vmax, avg , sd , am3 , am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 
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764  continue 

if (imat.ne.5)go  to  765 

call  stdev(psm5t, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 

call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart,sm(imat), 

*  usm(itnat ) ,  actott ,  tacct ,  aacct ,  psm5t ,  vmax,  avg ,  sd ,  am3 ,  am2 , 

*  aml,apl,ap2,ap3) 
go  to  760 

765  continue 

if (imat.ne.6)go  to  760 

call  stdev(psm6t, vmax, avg, sd,am3,am2, ami, apl,ap2,ap3) 

call  bar(iact,dact,uact,ibm,iby,iem,iey,iclass,ichart,sm(imat), 

*  usm(imat), actott, tacct, aacct, psm6t, vmax, avg, sd,am3,am2, 

*  aml,apl,ap2,ap3) 
760  continue 

return 

end 

subroutine  callab ( iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  llab, tacc, tcrew, trh, tot, rhacc, otacc, lace, 

*  lrh,lot,arh,frh,aot,fot,prh,pot,pth,aacc,acrew) 

************************************************************************ 
c  ** 


c* 

c*    CALLAB 
c* 


** 
** 
** 


This  subroutine  calculates  various  factors  from  the  labor 

c*      information  tabulated  by  INTLAB  and  OSHLAB.  This  subroutine  ** 

c*      is  called  in  turn  to  calculate  these  factors  for  the  inter-   ** 

*      state,  the  other  state  highway,  and  the  total  highway  system.  * 


** 


C*  state,    tne   otner   si.<ilc   ux6ii—;i    — =  ^^ 

C* 

c*    The  following  information  is  provided  by  INTLAB  and  OSHLAB: 

c*      lace  —  the  total  number  of  times  the  activity  was  performed  ** 

** 
** 


c*  tacc     —  total  accomplishment    (amount   of  work  done) 

c*  tcrew  —  total  of   crew  sizes   in  persons 

c*  lrh       —  number  of   times   regular-time   labor  hours  were 


** 


used  in  performance   of   the  activity 
c*  trh       —  total  number  of   regular-time   labor  hours  used 

c*  rhacc  —  total  accomplishment  when  regular-time   labor  hours 


** 

c*  were  used 

c*      lot   —  number  of  time  overtime  labor  hours  were  used        • j 
c*      tot   __  total  number  of  overtime  labor  hours  used  ** 

c*      otacc  —  total  accomplishment  when  overtime  labor  hours  were  ** 
c*  used  ** 

c* 

c*    Using  the  above  information,  the  following  factors  are         ** 

c*      calculated:  ^ 

** 


c* 


c*  aacc   —  average  accomplishment  =  tacc  /  lace 

c*  acrew  —  average  crew  size  -  tcrew  /  lace  ** 

c*  arh    _  average  regular  hours  per  crew  day  -  trh  /  lrh 

c*  oarh   —  overall  average  regular  hours  -  trh  /  lace         ** 

c*  (This  currently  is  not  printed  in  output.  11/14/83)  ** 

c*  arhacc  —  average  regular  hour  accomplishment  =  rhacc  /  lrh   ** 


c* 
c* 

frh 

c* 

c* 

prh 
aot 

c* 

oaot 
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—  fraction   of    time   regular-time  hours  were  used  ** 
=  lrh   /  lace  ** 

—  regular  hour  productivity  ■  trh  /   rhacc  ** 

—  average   overtime  hours   per   crew  day  ■  tot    /  lot  ** 

—  overall  average  overtime  hours  *  tot  /  lace  ** 
c*  (This  currently  is  not  printed  in  output.  11/14/83)  ** 
c*  arhacc  —  average  overtime  hour  accomplishment  ■  otacc  /  lot  ** 
c*  fot  —  fraction  of  time  overtime  hours  were  used  ** 
c*  ■  lot  /  lace  ** 
c*  pot  —  overtime  productivity  =  tot  /  otacc  ** 
c*  pth  —  total  labor  productivity  =  (trh  +  tot)  /  tacc  ** 
c*  ** 

c*  NOTE:      In  making  the  above   calculations,   0.0000000001   is   add-  ** 

c*  ed  to  each  denominator  to  avoid  a  floating  divide  by       ** 

c*  zero  error.                                                                                              ** 

c*  ** 

c*  ** 

integer  tcrew,trh,tot 

character   dact*40,uact*20 

dimension  tacc(66),tcrew(66),trh(66),tot(66),rhacc(66),otacc(66), 

*  lacc(66),lrh(66),lot(66),aacc(66),acrew(66),arh(66), 

*  oarh ( 66 ) , arhacc (  66  ) ,  f  rh  ( 66 ) , aot ( 66 ) , oaot ( 66 ) , 

*  aotacc(66),fot(66),prh(66),pot(66),pth(66) 
c 

c     Calculate  the  quantities 

c 

c     Calculate  for  district  1  subs 

jl=10 

j2=16 

10  do  11  J-J1.J2 

aacc(j)=tacc(j)  /  (f loat(lacc( j))  +  .0000000001) 
acrew(j)=float(tcrew(j))  /  (f loat(lacc( j))  +  .0000000001) 
arh(j)=float(trh(j))  /  (f loat(lrh( j))  +  .0000000001) 
oarh(j)=float(trh(j))  /  (f loat(lacc( j))  +  .0000000001) 
arhacc(j)=rhacc(j)  /  (f loat(lrh( j))  +  .0000000001) 
frh(j)=float(lrh(j))  /  (f loat(lacc( j))  +  .0000000001) 
aot(j)=float(tot(j))  /  (float (lot (j))  +  .0000000001) 
oaot(j)=float(tot(j))  /  (f loat(lacc( j))  +  .0000000001) 
aotacc(j)=otacc(j)  /  (f loat(lot( j))  +  .0000000001) 
fot(j)=float(lot(j))  /  (float(lacc(j))  +  .0000000001) 
prh(j)=float(trh(j))  /  (rhacc(j)  +  .0000000001) 
pot(j)=float(tot(j))  /  (otacc(j)  +  .0000000001) 
pth(j)=float(tot(j)  +  trh(j))  /  (tacc(j)  +  .0000000001) 

11  continue 
c 

c  Calculate  quantities   for  each   district's   subdistricts,    and 

c  district-wide   crew 

if(jl.eq.l0)go   to   20 

if(jl.eq.20)go   to   30 

if (jl.eq.30)go   to  40 

if (jl.eq.40)go  to  50 
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If(jl.eq.50)go  to  60 

if (jl.eq.60)go  to  70 
20   jl=20 

j2=26 

go  to  10 
30   jl»30 

j2=36 

go  to  10 
40   jl=40 

J2-47 

go  to  10 
50   jl=50 

J2-56 

go  to  10 
60   jl-60 

J2-66 

go  to  10 
70   continue 
c 

c     All  quantities  have  been  calculated  for  each  subdistrict. 
c     Print  the  results 

call  prlab(iact,dact,uact,ibm,iby,iem,ley,iclass, 

*  lacc,tacc,aacc,acrew,lrh,arh,oarh,arhacc,f rh, 

*  lot,aot,oaot,aotacc,fot,prh,pot,trh,tot) 
continue 

return 

end 

subroutine  prlab(iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  lacc,tacc,aacc,acrew,lrh,arh,oarh,arhacc,frh, 

*  lot , aot , oaot , aotacc ,  f  ot , prh , pot , trh , tot ) 
c*********************************************************************** 
c *********************************************************************** 
c*  ** 

c*    PRLAB  ** 

c*  ** 

c*  This  subroutine  prints  the  labor  factors  just  calculated  by  ** 
c*      subroutine  CALLAB.  ** 

c*  ** 

c*  ** 

c ********************************************************************** * 
c*********************************************************************** 

integer  trh, tot 

character  dact*40,uact*20 

dimension  lacc(66),tacc(66) ,aacc(66),acrew(66),lrh(66),arh(66) , 

*  oarh(66),arhacc(66),frh(66),lot(66),aot(66),oaot(66), 

*  aotacc(66),fot(66),prh(66),pot(66),trh(66),tot(66) 
c 

c  Print  title 

write(3 , 904 )iact , dact , ibm, iby , iem, iey , uact 
904      format (lhl ,39hR0UTINE   MAINTENANCE   REPORT   FOR  ACTIVITY, lx, 

*  i3,2x,a40,5x,4hFROM,lx,i2,lh-,i2,lx,7hTHROUGH,lx,i2,lh-,i2, 

*  /,21x,20hACC0MPLISHMENT  UNIT: ,5x,a20) 
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c     Check  to  see  if  printing  interstate,  other  state  highway,  or 
c       total  system  information  and  print  appropriate  title 

if(iclass.ne.0)go  to  100 

write(3,905) 

905  format(/,lx,28hINTERSTATE  LABOR  INFORMATION) 
go  to  120 

100  continue 

if (iclass.ne.l)go  to  110 
write(3,906) 

906  format (/,lx,37hOTHER  STATE  HIGHWAY  LABOR  INFORMATION) 
go  to  120 

110  continue 

write(3,907) 

907  format (/,lx,35hTOTAL  (INT  +  0SH)  LABOR  INFORMATION) 
120  continue 

c     Print  the  column  headings 
write(3,900) 

900  format (///,9x,lx,4hCREW,3x,14hACC0MPLISHMENT,3x,3hAVG,4x, 

*  6hT0T  RH,26x,6hRH/TOT,2x,6hTOT  OT,26x,6hOT/TOT) 
write(3,901) 

901  format (2x,4hUNIT,4x,4hDAYS,3x,5hT0TAL,2x,7hAVERAGE,3x, 

*  4hCREW,4x,4hDAYS,3x,6hRH/ACC,2x,6hAVG  RH,2x,6hT0T  RH, 

*  3x,4hDAYS,4x,4hDAYS,3x,6hOT/ACC,2x,6hAVG  0T,2x, 

*  6hT0T  OT,3x,4hDAYS) 
write(3,902) 

902  format  (2x,4h ,3x,6h ,13(2x,6h ),//) 

c 

c     Write  the  data  for  each  subdistrict 
jl=10 
j2=16 

10  do  11  J-J1.J2 
write(3,903)j,lacc(j),tacc(j),aacc(j),acrew(j),lrh(j),prh(j), 

*  arh(j),trh(j),frh(j),loc(j),pot(j),aot(j), 

*  tot(j),fot(j) 

903  format(2x,i2,2h00,3x,i6,lx,f8.1,lx,f6.1,2x,f6.2,2x,i6, 

*  2(2x,f6.2),2x,i6,2x,f6.3,2x,i6,2(2x,f6.2),2x,i6, 

*  2x,f5.3) 

11  continue 

if (jl.eq.lO)go  to  20 

if(jl.eq.20)go  to  30 

if (jl.eq.30)go  to  40 

if (jl.eq.40)go  to  50 

if(jl.eq.50)go  to  60 

if (jl.eq.60)go  to  70 
20   jl=»20 

J2-26 

go  to  10 
30   jl=30 

J2-36 

go  to  10 
40   jl=40 

j2=47 

go  to  10 
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50   jl=50 

j2=56 

go  to  10 
60   jl=60 

J2-66 

go  to  10 
70   continue 

return 

end 

subroutine  calmat (iact , dact ,uact , ibm, iby , iem, iey , iclass , 

*  sm, lmat , qsml , qsm2 , qsm3 ,  q  sm4 , q  sm5 , q sm6 , lsml , 

*  Ism2,lsm3,lsm4,lsm3,lsm6,lacc, 

*  f  sml , f  sm2 , f  sm3 , f  sm4 , f  sm5 , f  sm6 , asml , asm2 , asm3 , 

*  asm4,asm5,asm6, 

*  smlac, sm2ac,sm3ac,sm4ac,sm5ac,sm6ac, 

*  psml  ,psm2,psin3,psm4,psm5,psm6) 


*********************************************************************** 
*********************************************************************** 


c*  ** 

c*    CALMAT  ** 

c*  ** 

c*  This  subroutine  calculates  various  factors  from  the  material  ** 
c*  information  tabulated  by  INTMAT  and  OSHMAT.  This  subroutine  ** 
c*     is  called  in  turn  to  calculate  these  factors  for  the  inter-   ** 

c*      state,  the  other  state  highway,  and  the  total  highway  system.  ** 

*  -   ■  ■  ^ 

** 
** 


c 

c*  The  following  information  is  provided  by  INTMAT  and  OSHMAT: 

c* 

c*  lace   —  total  number  of  times  activity  was  performed  ** 

c*  qsml  —  total  amount  of  specified  material  1  used  (specified  ** 

c*  material  1  is  the  first  material  listed  in  the  input  ** 

c*  parameter  file)  ** 

c*  lsml  —  total  number  of  times  specified  material  1  was  used  ** 

c*  smlac  —  total  work  accomplished  when  specified  material  1  was  ** 

c*  used  ** 

c*  These  three  variables,  qsm_,  lsm_,  and  am_ac,  are  repeated  for  ** 

c*  for  each  specified  material,  1  through  6.  ** 

c*  ** 

c*  Using  this  information,  the  following  factors  are  calculated:  ** 

c*  ** 

c*  fsml  —  fraction  of  time  specified  material  1  is  used  ** 

c*  =  lsml  /  lace  ** 

c*  asml  —  average  quantity  of  specified  material  1  used  per 

c*  crew  day  when  that  material  is  used  =  qsml  /  lsml  ** 

c*  psml  —  productivity  with  specified  material  1  =  qsml  /  smlac  ** 

c*  These  three  factors,  fsm_,  asm_,  and  psm_,  are  repeated  for  ** 

c*  each  specified  material,  1  through  6.  ** 

c*  ** 

c*  NOTE:   In  calculating  the  above  factors,  0.0000000001  is  add-  ** 

c*  to  each  denominator  to  avoid  a  floating  divide  by  zero  ** 

c*  error.  ** 

c*  ** 

-*  ** 
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c***************************************************** ************ ****** 
c ************************************************************ *********** 
integer  sm 

character  dact*40,uact*20 
dimension  sm(6) ,qsml(66),qsm2(66),qsm3(66),qsm4(66),qsm5(66), 

qsm6(66),lsml(66),lsm2(66),lsm3(66),lsm4(66),lsm5(66), 
lsm6(66),lacc(66), 

fsml(66),fsm2(66),fsm3(66),fsin4(66),fsm5(66),fsm6(66), 
asml(66),asm2(66),asm3(66),asm4(66),asm5(66),asm6(66), 
smlac ( 66 ) , sm2ac ( 66 ) , sm3ac ( 66 ) , sm4ac ( 66 ) , sm5ac ( 66 ) , 
sm6ac(66),psml(66),psm2(66),psm3(66),psm4(66), 
psm5(66),psm6(66) 


10 


11 


20 


30 


40 


50 


60 


jl=10 

j2=16 

do  1 

fsml 

f  sm2 

f  sm3 

f  sm4 

£sm5 

f  sm6 

asml 

asm2 

asm3 

asm4 

asm5 

asm6 

psml 

psm2 

psm3 

psm4 

psm3 

psm6 

cont 

if(j 

if(j 

if(j 

if(j 

if(j 

if(j 

jl=20 

j2=26 

go  to 

jl=»30 

j2=36 

go  to 

jl=40 

j2=47 

go  to 

jl=50 

j2=56 

go  to 

jl=60 


J-J1.J2 

j)=float(lsml(j))  /  (float (lacc(j))  +  .0000000001) 
j)=float(lsm2(j))  /  (f loat(lacc( j))  +  .0000000001) 
j)=float(lsm3(j))  /  (f loat (lacc( j))  +  .0000000001) 
j)=float(lsm4(j))  /  (f loat(lacc( j))  +  .0000000001) 
j)=float(lsm5(j))  /  (f loat(lacc( j))  +  .0000000001) 
j)=float(lsm6(j))  /  (f loat(lacc( j))  +  .0000000001) 
j)=qsml(j)  /  (float(lsml(j))  +  .0000000001) 
j)=qsm2(j)  /  (float (lsm2(j))  +  .0000000001) 
j)=qsm3(j)  /  (float(lsm3(j))  +  .0000000001) 
j)=qsm4(j)  /  (float (lsm4(j))  +  .0000000001) 
j)=qsm5(j)  /  (float(lsm5(j))  +  .0000000001) 
j)=qsm6(j)  /  (float(lsm6(j))  +  .0000000001) 


j)=qsml(j)  /  (smlac(j) 
j)=qsm2(j)  /  (sm2ac(j) 
j)=qsm3(j)  /  (sm3ac(j) 
j)=qsm4(j)  /  (sm4ac(j) 
j)=qsm5(j)  /  (sm5ac(j) 
j)=qsm6(j)  /  (sm6ac(j) 
nue 

.eq.l0)go  to  20 
.eq.20)go  to  30 
.eq.30)go  to  40 
,eq.40)go  to  50 
.eq.50)go  to  60 
.eq.60)go  to  70 


10 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 


10 


10 


10 
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j2=66 
go  to  10 
70   continue 

c 

c  Print   results 

call  prmat (iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  sm, lacc.f sml,f sm2,f sm3,f sm4,f sm5,f sm6 , asml , asm2 , asm3 , 

*  asm4,asm5,asin6, 

*  psml,psm2,psm3,psm4,psm5,psm6) 
return 

end 
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subroutine  prmat (iact , dact , uact , ibm, iby ,iem, iey , iclass , 

*  sm, lacc,f sml ,f sm2,f sm3,f sm4,f sm5,f sm6,asml ,    ' 

*  asm2,asm3,asm4,asm5,asm6, 

*  psml ,psm2,psm3,psm4,psm5,psm6) 
c*********************************************************************** 

c*  ** 

c*    PRMAT  ** 

c*  ** 

c*  This  subroutine  prints  the  material  factors  just  calculated  by  ** 
c*      subroutine  CALMAT.  ** 

c*  ** 

c*  ** 

c ************************************************************* ********** 
c***********************************^ 

integer  sm 

character  uact*20,dact*40 

dimension  sm(6) , lace (66) ,f sml(66),f sm2(66) ,f sm3(66) ,f sm4(66) , 

*  fsm5(66),f sm6(66),asml(66),asm2(66),asm3(66),asm4(66), 

*  asm5(66),asm6(66),psml(66),psm2(66),psm3(66),psm4(66), 

*  psm5(66),psm6(66) 
c 

c     Print  title 

writ e( 3 , 905 )iact , dact , ibm, iby , iem, iey , uact 

905  format (lhl ,39hROUTINE  MAINTENANCE  REPORT  FOR  ACTIVITY, lx,i3,2x, 

*  a40 ,5x, 4hFR0M, lx, ±2 , lh-, i2 , lx, 7hTHR0UGH, lx, 12 , lh-, i2 , 

*  /,21x,20hACCOMPLISHMENT  UNIT: ,5x,a20) 
c 

c     Check  to  see  if  printing  interstate,  other  state  highway,  or 
c       total  system  information  and  print  appropriate  title 

if (iclass. ne.0)go  to  100 

write(3,906) 

906  format(/,lx,31hINTERSTATE  MATERIAL  INFORMATION) 
go  to  120 

100  if  (iclass.  ne.Dgo  to  110 
write(3,907) 

907  format (/ , lx,40hOTHER  STATE  HIGHWAY  MATERIAL  INFORMATION) 
go  to  120 

110  continue 

write(3,908) 

908  format (/ , lx,38hTOTAL    (INT  +  0SH)   MATERIAL    INFORMATION) 
120     continue 

c  Print   column  headings 

write(3,900)    (sm( j), j=l ,6) 

900  format (/// ,6x,4hCREW,lx,6(  lx,8h MAT,lx,i4,5h )) 

write(3,902) 

902  format (lx,4hUNIT,lx,4hDAYS,lx, 

*  6(lx,4hFRAC,lx,6hAVGQNT,lx,6hQNT/AC)) 
write(3,903) 

903  format(lx,4h ,lx,5h , 

*  6(lx,4h ,lx,6h ,lx,6h )//) 

c 

c  Write   the   data 
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jl=»10 

j2=16 

10  do  11  j=jl,j2 

write(3,904)j,lacc(j),fsml(j),asml(j),psml(j),fsm2(j),asm2(j), 

*  psm2( J),fsm3(j),asm3(j),psm3(j),fsm4(j),asm4(j), 

psm4(j),fsm5(j),asm5(j),psm5(j),fsm6(j),asm6(j), 

*  psm6(j) 

904  format(lx,i2,2h00,lx,i5,6(lx,f4.2,lx,f6.2,lx,f6.2)) 

11  continue 
if(jl.eq.lO)go  to  20 
if(jl.eq.20)go  to  30 
if(jl.eq.30)go  to  40 
if (jl.eq.40)go  to  50 
if (jl.eq.50)go  to  60 
if(jl.eq.60)go  to  70 

20   jl-20 

j2=26 

go  to  10 
30   jl=30 

J2-36 

go  to  10 
40   jl=40 

j2=47 

go  to  10 
50   jl=50 

j2=56 

go  to  10 
60   jl=60 

j2=66 

go  to  10 
70   continue 

return 

end 

subroutine  cost (iact , dact ,uact , ibm, iby , iem, iey , iclass , 

*  sm, csm, crh,cot,lacc,tacc,arh,aot,frh,fot, 

*  f sml,f sm2,f sm3,f sm4,fsm5,f sm6,asml,asm2, 

*  asm3,asm4,asm5,asm6,actot) 

c*  ** 

c*  COST                                                    ** 

c*  ** 

c*  Using  information  from  other  routines,  the  average  cost  per     ** 

c*  accomplishment  unit  for  each  subdistrict  is  calculated  here.   ** 

c*  The  cost  is  for  labor  and  materials  only.                  ** 

c*  ** 

c*    The  following  information  is  provided  by  other  subroutines:     ** 
c*  ** 

c*      lace   —  the  total  number  of  times  the  activity  was  perform-  ** 

c*              ed  ** 

c*      tacc   —  total  accomplishment  (amount  of  work  done)  ** 

average  regular  hours  per  crew  day  =  trh  /  lrh      ** 


c*  arh 


c*  frh  —  fraction   of   time   regular-time  hours  were  used 
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c*               =  lrh  /  lace  ** 

c*      crh    —  regular  labor  wage  per  hour  ** 

c*      aot    —  average  overtime  hours  per  crew  day  =  tot  /  lot  ** 

c*      fot    —  fraction  of  time  overtime  hours  were  used  ** 

c*               =  lot  /  lace  ** 

c*      cot    —  overtime  labor  wage  per  hour  ** 

c*      fsml   —  fraction  of  time  specified  material  1  is  used  ** 

c*              =  lsml  /  lace  ** 

c*      asml   —  average  quantity  of  specified  material  1  used  per  ** 

c*              crew  day  when  that  material  is  used  =  qsml  /  lsml  ** 

c*      csm(l)  —  unit  cost  for  specified  material  1  ** 

c*      These  four  factors,  fsm_,  asm_,  psm_,  and  csm  are  repeated  ** 

c*              for  each  specified  material,  1  through  6.  ** 

c*  ** 

c*    Cost  is  calculated  as  follows:                    •  ** 

c*  ** 

c*    Resource  cost  per  unit  of  accomplishment  =  ** 

c*      (#  of  records  *  Fraction  of  time  resource  is  used  *  ** 

c*       Avg  quantity  of  resource  when  used  *  Unit  cost  of  resource)  ** 

c*       /  Total  accomplishment  ** 

c*     The  following  cost  figures  are  calculated:  ** 

c*  ** 

c*     acrh    —  average  cost  for  regular  labor  =  (lace  *  frh  *  ** 

c*              arh  *  crh)  /  tacc  ** 

c*     acot    —  average  cost  for  overtime  labor  =  (lace  *  fot  *  ** 

c*              aot  *  cot)  /  tacc  ** 

c*     acsml   —  average  cost  for  specified  material  1  =  (lace  *  ** 

c*              fsml  *  asml  *  csm(l))  /  tacc  ** 

c*            This  material  cost  calculation  is  made  for  each  speci-  ** 

c*            fied  material,  1  through  6.  ** 

c*     NOTE:   In  the  above  calculations,  0.0000000001  is  added  to  ** 

c*           denominator  to  avoid  a  possible  floating  divide  by  zero  ** 

c*           error.  ** 

c*  ** 

c*     aclab   —  average  cost  for  labor  =  acrh  +  acot  ** 

c*     acmat   —  average  cost  for  materials  =  acsml  +  acsm2  +  ...  +  ** 

c*              acsm6  ** 

c*     actot   —  average  total  cost  for  materials  and  labor  =  ** 

c*              aclab  +  acmat  ** 

c*  ** 

c*  ** 
c ******************************************* **************************** 
c******************************************** ************* ************** 

integer  sm 

character  uact*20,dact*40 

dimension  sm(6),csm(6) , lace (66) , tacc (66) , arh (66) ,aot (66), 

*  frh(66),fot(66),fsml(66),fsm2(66),fsm3(66),fsm4(66), 

*  f  sm5 ( 66 ) , f sm6 ( 66 ) , asml ( 66 ) , asm2 ( 66 ) , asm3 ( 66 ) , asm4 ( 66 ) , 

*  asm5(66) ,asm6(66), 

*  acrh ( 66 ) , aco t ( 66 ) , acsml ( 66 ) , acsm2 ( 66 ) , acsm3 ( 66 ) , 

*  acsm4(66),acsm5(66),acsm6(66),aclab(66),acmat(66), 

*  actot(66) 
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10 


11 


20 


30 


Calculate  cost  factors  for  each  subdistrict 

jl=10 

j2=16 

do  11  j=jl,j2 

acrh(j)=(float(lacc(j) 

*  +  .0000000001 
acot( j)=(f loat(lacc(j) 

*  +  .0000000001 
acsml( j)=(float(lacc( j 

*  +  .0000000001 
acsm2 ( j )=( f loat ( lace ( j 

*  +  .0000000001 
acsm3( j)=( float (lace (j 

*  +  .0000000001 
acsm4 ( j )=( f loat ( lace ( j 

*  +  .0000000001 
acsm5( j)=(f loat (lace ( j 

*  "  +  .0000000001 
acsm6( j)=( float (lace (j 

*  +  .0000000001 
aclab(j)=»acrh(  j)  +  acot(j) 

acmat(j)=acsml(j)  +  acsm2(j)  +  acsm3(j)  +  acsm4(j)  +  acsm5(j) 

*  +  acsm6( j) 

actot( j)=aclab( j)  +  acmat(j) 


*  frh(j)  *  arh(j)  *  crh)  /  (tacc(j) 

*  fot(j)  *  aot(j)  *  cot)  /  (tacc(j) 
)  *  fsml(j)  *  asml(j)  *  csm(l))  /  (tacc(j) 
)  *  fsm2(j)  *  asm2(j)  *  csm(2))  /  (tacc(j) 
)  *  fsm3(j)  *  asm3(j)  *  csm(3))  /  (tacc(j) 
)  *  fsm4(j)  *  asm4(j)  *  csm(4))  /  (tacc(j) 
)  *  fsm5(j)  *  asm5(j)  *  csm(5))  /  (tacc(j) 
)  *  fsm6(j)  *  asm6(j)  *  csm(6))  /  (tacc(j) 


continue 

if(jl.eq.l0)go  to  20 

if(jl.eq.20)go  to  30 

if (jl.eq.30)go  to  40 

if (jl.eq.40)go  to  50 

if (jl.eq.50)go  to  60 

if(jl.eq.60)go  to  70 

jl=20 

j2=26 

go  to  10 

jl=30 

j2=36 

go  to  10 
40   jl=40 

j2=47 

go  to  10 
50   jl=50 

j2=56 

go  to  10 
60   jl=60 

j2=66 

go  to  10 
70   continue 

Print  cost  data 
call  prcost (iact , dact ,uact , ibm, iby , iem, iey , iclass , 

*  sm, lacc,tacc,acrh,acot,acsml,acsm2,acsm3,acsm4, 

*  acsm5,acsm6,aclab,acmat,actot) 
return 
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end 

subroutine  prcos t (iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  sm,lacc,tacc,acrh,acot,acsml ,acsm2,acsm3, 

*  acsm4,acsm5,acsm6,aclab,acmat ,actot ) 
c*********************************************************************** 

c*  ** 

c*  PRCOST                                                                                                                                ** 

c*  ** 

c*  This   subroutine  prints    the   cost   factors    just    calculated  by   sub-  ** 

c*  routine   COST.                                                                                                             ** 

c*  ** 

c*  ** 

integer  sm 

character  uact *20, dact *40 

dimension  sm(6) , lace (66), tacc(66) ,acrh(66),acot(66) ,acsml(66) , 

*  acsm2(66),acsm3(66),acsm4(66),acsm5(66),acsm6(66), 

*  actot(66),aclab(66),acmat(66) 
c 

c     Print  title 

writ e(3 , 904 )iact , dact , ibm, iby , iem, iey , uact 

904  format (lhl ,39hROUTINE  MAINTENANCE  REPORT  FOR  ACTIVITY, lx,i3,2x, 

*  a40,5x,4hFROM,lx,i2,lh-,i2,lx,7hTHROUGH,lx,i2,lh-,i2, 

*  /,21x,20hACC0MPLISHMENT  UNIT: ,5x,a20) 
c 

c     Check  to  see  which  highway  system  the  data  is  for,  and  print 
c       appropriate  heading 

if (iclass. ne.0)go  to  100 

write(3,905) 

905  format(/,lx,27hINTERSTATE  COST  INFORMATION, 5x, 

*  50h(ALL  COSTS  ARE  DOLLARS  PER  UNIT  OF  ACCOMPLISHMENT)) 
go  to  120 

100  continue 

if (iclass. ne.l)go  to  110 
write(3,906) 

906  format(/,lx,36h0THER  STATE  HIGHWAY  COST  INFORMATION, 5x, 

*  50h(ALL  COSTS  ARE  DOLLARS  PER  UNIT  OF  ACCOMPLISHMENT)) 
go  to  120 

110  continue 

write(3,907) 

907  format(/,lx,34hT0TAL  (INT  +  OSH)  COST  INFORMATION, 5x, 

*  50h(ALL  COSTS  ARE  DOLLARS  PER  UNIT  OF  ACCOMPLISHMENT)) 
120  continue 

c     Print  column  headings 
write(3,900) 

900  format(//,8x,4hCREW,5x,5hTOTAL,33x,18(lh-),17hCOSTS    BY   MATERIAL, 

*  23(lh-)) 
write(3,901)(sm(j),j=l,6) 

901  format(lx,4hUNIT,3x,4hDAYS,5x,6hACC0MP,2x,8hT0T  C0ST,2x, 

*  8hLAB  C0ST,2x,8hMAT  C0ST,2x,6(2x,i4,4x)) 
write(3,902) 
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902  format  (lx,4h ,2x,6h ,4x,6h ,9(2x,8h ),//) 

c 

c  Print   cost  figures  for  each  subdistrict 

jl=10 
j2=16 

10  do   11    j=jl,j2 
write(3J903)j,lacc(j),tacc(j),actot(j),aclab(j),acmat(j), 

*  acsml ( j ) ,acsm2 ( j ) ,acsm3 ( j ) , acsm4 ( j ) , acsm5 ( j ) ,acsm6 ( j ) 

903  format(lx,i2,2h00,2x,i6,2x,f8.1,9(2x,f8.3)) 

11  continue 

if (jl.eq.lO)go  to  20 

if(jl.eq.20)go  to  30 

if (jl.eq.30)go  to  40 

if (jl.eq.40)go  to  50 

if (jl.eq.50)go  to  60 

if(jl.eq.60)go  to  70 
20   jl=20 

j2=26 

go  to  10 
30   jl=30 

j2=36 

go  to  10 
40   jl=40 

J2-47 

go  to  10 
50   jl=50 

j2=56 

go  to  10 
60   jl=60 

j2=66 

go  to  10 
70   continue 

return 

end  ' 

subroutine   dstsum(iact , dact , uact , ibm, iby , iem, iey , iclass , 

*  tacc,tcrew,trh,tot,rhacc,otacc,lacc,lrh,lot,arh, 

*  f rh,aot,f ot,sm,qsml  ,qsm2,qsm3,qsm4,qsm5,qsin6, 

*  lsml ,  lsm2 ,  lsm3 ,  lsm4 ,  lsm5 ,  lsm6 , smlac ,  sm2ac ,  sm3ac , 

*  sm4ac,sm5ac,sm6ac,csm, crh,cot) 

c*  ** 

c*  DSTSUM                                                                                                                               ** 

c*  ** 

c*  This   subroutine   calls   other  subroutines    to   calculate  and  print      ** 

c*  summaries   of    the   labor,    material,    and   cost    information  for          ** 

c*  each   district   and  for   the  state  as   a  whole.                                           ** 

c*  ** 

c*  ** 
c******************************** ********************************* ****** 

integer  tcrew,trh,tot,sm 
character  uact *20, dact *40 
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dimension  tacc(66), tcrew(66), trh(66),tot(66)  ,rhacc(66) , 

*  otacc(66),lacc(66),lrh(66),lot(66),arh(66),frh(66), 

*  aot(66),fot(66),sm(6),qsml(66),qsm2(66),qsm3(66), 

*  qsm4(66),qsm5(66),qsm6(66),lsml(66),lsm2(66),lsm3(66), 

*  Ism4(66),lsm5(66),lsm6(66),smlac(66),sm2ac(66), 

*  sm3ac ( 66 ) , sm4ac ( 66 ) , sm5ac ( 66 ) , sm6ac ( 66 ) , csm( 6 ) , 

*  ldacc(6),tdacc(6),adacc(6),adcrw(6),ldrh(6),dprh(6), 

*  adrh(6),dfrh(6),ldot(6),dpot(6),adot(6),dfot(6), 

*  dfsml(6),dfsm2(6),dfsm3(6),dfsm4(6),dfsm5(6),dfsm6(6), 

*  dasml(6),dasm2(6),dasm3(6),dasm4(6),dasm5(6),dasm6(6), 

*  dpsml ( 6 ) , dpsm2 ( 6 ) , dpsm3( 6 ) , dpsm4( 6 ) , dpsm5 ( 6 ) , dpsm6 (  6 ) , 

*  dacrh(6), dacot (6), dacsml (6),dacsm2(6),dacsm3(6), 

*  dacsm4 ( 6 ) , dacsm5 ( 6 ) , dacsm6 ( 6 ) , daclab( 6 ) , dacmat ( 6 ) , 

*  dactot(6) 
c 

c  First   calculate   district   and  state   labor  summary 

call   ds t lab ( tacc, t crew, trh,tot,rhacc,ot ace, lace, lrh, lot, 

*  ldacc , t dace , adacc , adcrw , ldrh , dp  rh , adrh , df  rh , ldo t , 

*  dpot,adot,df ot.lsacc, tsacc,asacc,ascrw,lsrh,sprh,asrh,sf rh, 

*  lsot,spot,asot,sf ot) 
c 

c  Calculate   district   and  state  material  summary 

call   dstmat (lace, ldacc, Isacc,qsml,qsm2,qsm3,qsm4,qsm5,qsm6, 

*  lsml , lsm2 , lsm3 , lsm4 , lsm5 , lsm6 , smlac , sm2ac , sm3ac , 

*  sm4ac , sm5ac , sm6ac , df  sml , df  sm2 , df  sm3 , df  sm4 , df  sm5 , 

*  df sm6 , dasml , dasm2 , dasm3 , dasm4 , dasm5 , dasm6 , sf  sml , 

*  sf sm2 , sf sm3 , sf sm4 , sf sm5 , sf sm6 , sasml ,sasm2 , sasm3 , 

*  sasm4,sasm5,sasm6, dpsml, dpsm2,dpsm3,dpsm4,dpsm5, 

*  dpsm6 , spsml , spsm2 , spsm3 , spsm4 , spsm5 , spsm6 ) 
c 

c  Calculate   district   and  state   cost   summary 

call   dstcst(csm, crh, cot, ldacc, t dace, adrh, adot ,df rh.df ot, 

*  df sml , df  sm2 , df  sm3 , df  sm4 , df  sm5 , df  sm6 , dasml , dasm2 , 

*  dasm3 , dasm4 , dasm5 , dasm6 , lsacc , tsacc , as  rh , asot , sf rh , 
sf ot,sf sml, sf sm2,sf sm3,sf sm4,sf sm5,sf sm6, sasml, sasm2, 

*  sasm3 , sasm4 , sasm5 , sasm6 , dacrh , dacot , dacsml , dacsm2 , 

*  dacsm3 , dacsm4 , dacsm5 , dacsm6 , daclab , dacmat , dact ot , 

*  sacrh,sacot,sacsml ,sacsm2,sacsm3,sacsm4,sacsm5, 

*  sacsm6,saclab,sacmat ,sactot ) 
c 

c     Print  district  summary 

call  pdist(iact,dact,uact,ibm,iby,iem,iey,iclass , ldacc, 

*  t dace, adacc, adcrw, ldrh, dp rh, adrh, dfrh, ldo t, 

*  dpot , ado t , df  ot , sm, df  sml , df  sm2 , df  sm3 , df  sm4 , df  sm5 , 

*  df sm6, dasml, dasm2,dasm3,dasm4,dasm5,dasm6, dpsml , 

*  dpsm2 , dpsm3 , dpsm4 , dpsm5 , dpsm6 , dacrh , dacot , dacsml , 

*  dacsm2 , dacsm3 , dacsm4 , dacsm5 , dacsm6 , daclab, dacmat , 

*  dactot) 
c 

c  Print    state   summary 

call  pstate(iact , dact ,uact , ibm, iby , iem, iey , iclass , lsacc, 

*  tsacc,asacc,ascrw,lsrh,sprh,asrh, sf rh.lsot, 

*  spot, asot ,sf ot,sm,sf sml , sf sm2,sf sm3,sf sm4,sf sm5, 
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*  sf sm6 , sasml , sasm2 , sasm3 , sasm4 , sasm5 , sasm6 , spsml , 

*  spsm2 , sp  sm3 , spsm4 , sp  sm5 , spsm6 , sacrh , sacot , sacsml , 

*  sacsm2 , sacsm3 ,sacsm4 , sacsm5 , sacsm6 , saclab, sacmat , 

*  sactot) 
return 

end 

subroutine  ds tlab( tacc , tcrew , trh , tot , rhacc , otacc , lace , lrh , 

*  lot, ldacc,dtacc,adacc,adcrw, ldrh, dprh.adrh, 

*  df rh , ldot , dpot , adot , df ot , lsacc , tsacc , asacc , 

*  ascrw,lsrh,sprh,asrh,sfrh,lsot,spot,asot,sfot) 

** 


c 
c* 

c*  DSTLAB  ** 

c*  ** 

c*  This   subroutine   summarizes    labor  information   for   each   district  ** 

c*  and  for  the  state  as   a  whole.  ** 

c*  ** 

c*  The  following  values  for  each  subdistrict  are  provided  from  ** 

c*  other  subroutines 
c* 

c*  lace     —  the   total  number   of   times    the  activity  was   performed  ** 

c*  tacc     —  total  accomplishment    (amount   of  work   done)  ** 

c*  tcrew  —  total  of   crew  sizes   in  persons  ** 

c*  lrh       —  number   of   times   regular-time   labor  hours  were  ** 

c*  used  in  performance   of    the  activity  ** 

c*  trh       —  total  number  of   regular-time   labor  hours  used  ** 

c*  rhacc  —  total  accomplishment  when   regular-time    labor  hours  ** 

c*  were  used  ** 

c*  lot       —  number  of   time  overtime   labor  hours  were  used  ** 

c*  tot       —  total  number  of   overtime   labor  hours  used  ** 

c*  otacc  —  total  accomplishment  when  overtime    labor  hours  were  ** 

c*  used  ** 

c*  ** 

c*  The   following   values   are   calculated  for  each   of    the   six  IDOH  ** 

c*  districts:  ** 

c*  ** 

c*  Idacc  —  total  number   of   times   activity  was   performed   by    the  ** 

c*  district  =  sum  of   lace  for  each  district  ** 

c*  dtacc  —  district   total  accomplishment   =   sum  of    tacc  for  ** 

c*  each  district  ** 

c*  dcrew  —  total  of   crews   in  a   district   =  sum  of    tcrew   for  ** 

c*  each  district  ** 

c*  ldrh     —  total  number   of   times    regular-time    labor  hours  were  ** 

c*  reported  =  sum  of   lrh  for  a   district  ** 

c*  dtrh     —  district   total   regular-time  hours  used  =   sum  of    trh  ** 

c*  for  a  district  ** 

c*  drhac  —  district   accomplishment  when   regular  hours  were  ** 

c*  used  =  sum  of   rhacc  for  a   district  ** 

c*  ldot     —  same  as    ldrh   but  with   overtime  hours 

c*  dtot     —  same  as   dtrh  but  with   overtime  hours  ** 

c*  dotac  —  same  as   drhac   but  with   overtime  hours 

c*  ** 


** 
** 
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c*  A  similar  set    of   values    is    tabulated  for   the  state   as   a  whole:  ** 

c*  ** 

c*  lsacc   —   total   number   of   times   activity  was   performed   in  the  ** 

c*  state   =  sum  of   all   lace   values  ** 

c*  tsacc   —  total   state  accomplishment   =   sum  of   all   tacc   values  ** 

c*  screw  —   total  of   state   crews   =  sum  of   all   tcrew  values  ** 

c*  lsrh     —  total  number   of   times    regular-times   hours   were  used  ** 

c*  in  the  state   =  sum  of   all   lrh   values  ** 

c*  strh     —  state   total  number   of    regular-time  hours   used  ** 

c*  =  sura  of   all  trh  values  ** 

c*  srhac  —  total  state  accomplishment  when   regular  hours  were  ** 

c*  reported  =  sum  of   all   rhacc   values  ** 

c*  lsot     —  same   as    lsrh   but  with   overtime  hours  ** 

c*  stot     —  same  as   strh   but  with   overtime  hours  ** 

c*  sotac  —  same  as    srhac   but  with   overtime  hours  ** 

c*  ** 

c*  The   following  factors   are   calculated  for   each   IDOH   district:  ** 

c*  ** 

c*  adacc  —  average   district   accomplishment   =  dtacc   /   ldacc  ** 

c*  adcrw  —  average   district   crew   size   =  dcrew   /  ldacc  ** 

c*  adrh     —  average   district    regular  hours   =  dtrh   /   ldrh  ** 

c*  adrac  —  average   district    regular  hour  accomplishment  ** 

c*  =  drhac   /  ldrh  ** 

c*  dfrh     —  district   fraction   of    the  time   regular  hours  was   used   ** 

c*  =  ldrh   /   ldacc  ** 

c*  dprh     —  district   regular  hour  productivity  =  dtrh    /  drhac  ** 

c*  adot      —  average   district   overtime   =  doth   /   ldot  ** 

c*  adoac  —  average   district   overtime  accomplishment  ** 

c*  =  dotac   /   ldot  ** 

c*  dfot     —  district   fraction   of    the   time   overtime  was   used  ** 

c*  =  ldot   /   ldacc  ** 

c*  dpot      —  district   overtime  productivity   =  dtot    /  dotac  ** 

c*  ** 

c*  Similar  factors   are   calculated  for   the  state  as   a  whole:  ** 

c*  ** 

c*  asacc   —  average  state  accomplishment   =  tsacc   /  lsacc  ** 

c*  ascrw  —  average  state   crew   size   =   screw   /   lsacc  ** 

c*  asrh     —  average   state   regular  hours   =  strh   /  lsrh  ** 

c*  asrac  —  average  state   regular  hour  accomplishment  ** 

c*  =  srhac   /   lsrh  ** 

c*  sfrh     —  state   fraction   of    the  time    regular  hours  was   used  ** 

c*  =  lsrh   /  lsacc  ** 

c*  sprh     —  state   regular  hour  productivity  =  strh   /   srhac  ** 

c*  asot     —  average  state   overtime   =  soth    /   lsot  ** 

c*  asoac  —  average  state   overtime   accomplishment  ** 

c*  =  sotac   /   lsot  ** 

c*  sfot      —  state   fraction   of    the   time   overtime  was  used  ** 

c*  =  lsot    /   lsacc  ** 

c*  spot      —  state   overtime  productivity   =  stot    /   sotac  ** 

c*  ** 

c*  NOTE:    In  the   calculations    listed   in   these    last    two  sections,  ** 

c*  0.0000000001    is   added   to  each   denominator   to  avoid  a  ** 

c*  possible   floating   divide   by   zero  error.  ** 
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c*  ** 

c*  ** 

c*********************************************************************** 
c ************************************************************ *********** 
integer  tcrew,trh, tot, dcrew,dtrh,dtot, screw, strh,s tot 
dimension  tacc ( 66 ) , t crew ( 66 ) ,  t  rh  ( 66 ) ,  t  ot  ( 66 ) , rhacc ( 66 ) , 

*  otacc(66),lacc(66),lrh(66),lot(66),dtacc(6),dcrew(6), 

*  dtrh(6),dtot(6),drhac(6),dotac(6),ldacc(6),ldrh(6), 

*  ldot(6),adrh(6),dfrh(6),adot(6),dfot(6),dprh(6), 

*  dpot(6),adacc(6),adcrw(6),adrac(6),adoac(6) 
c 

c  Because  this  subroutine  is   called  separately   to  calculate  the 

c  interstate,    other  state  highway,   and  total  system  figures, 

c  the  district  and  state  summations  must  be  set   to  zero  each 

c  time  the  subroutine  is  used. 

tsacc=0. 

screw=0 

strh=0 

stot=0 

s  rhac=0 . 

sotac=0. 

lsrh=0 

lsot=0 

lsacc=0  *  < 

do  1  k=l,6 

dtacc(k)=0. 

dcrew(k)=0 

dtrh(k)=0 

dtot(k)=0 

drhac(k)=0. 

dotac(k)=0. 

ldrh(k)=0 

ldot(k)=0 

ldacc(k)=0 
1  continue 

c 

c  Make  the  desired  summations   for  each   district,    and  the  entire 

c  state.      Counter   j   tracks    the   subdistricts,    while   counter  k 

c  tracks   the  six  districts. 

jl=10 

j2=16 

k=l 
10       do   11    i=jl,j2 

dtacc(k)=dtacc(k)+tacc( j) 

tsacc=tsacc+tacc ( j ) 

dcrew(k)=dcrew(k)+tcrew( j) 

screw=screw+tcrew( j) 

dt  rh  (k  )  =dt  rh  (k  )+t  rh  ( j  ) 

strh=strh+trh( j) 

dtot(k)=dtot(k)+tot(j) 

stot=stot+tot( j) 

drhac(k)=drhac(k)+rhacc( j) 

s  rhac=s  rhac+rhacc ( j ) 
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dotac(k)=dotac(k)+otacc( j) 
sotac=sotac+otacc ( j ) 
ldacc(k)=ldacc(k)+lacc(j) 
lsacc=lsacc+lacc( j) 
ldrh(k)=ldrh(k)+lrh(j) 
lsrh=lsrh+lrh(j) 
ldot(k)=ldot(k)+lot(j) 
lsot=lsot+lot(j) 

II  continue 
if(k.eq.l)go  to  20 
if(k.eq.2)go  to  30 
if(k.eq.3)go  to  40 
if(k.eq.4)go  to  50 
if(k.eq.5)go  to  60 
if(k.eq.6)go  to  70 

20   jl=20 
j2=26 
k=2 
go  to  10 

30   jl=30 
j2=36 
k=3 
go  to  10 

40   jl=40 
j2=47 
k=4 
go  to  10 

50   jl=50 
j2=56 
k=5 
go  to  10 

60   jl=60 
j2=66 
k=6 
go  to  10 

70   continue 
c 
c     Calculate  the  various  factors  for  each  of  the  six  districts 

100  do  111  k=l,6 

adacc(k)=dtacc(k)    /    (f loat (ldacc(k))   +   .0000000001) 
adcrw(k)=float(dcrew(k))   /    (f loat(ldacc(k))  +    .0000000001) 
adrh(k)=float(dtrh(k))    /    (f loat (ldrh(k))   +   .0000000001) 
adrac(k)=drhac(k)   /    (f loat(ldrh(k))   +    .0000000001) 
dfrh(k)=float(ldrh(k))    /    (f loat (ldacc(k))   +   .0000000001) 
adot(k)=float(dtot(k))   /    (f loat(ldot(k))   +   .0000000001) 
adoac(k)=dotac(k)    /    (f loat (ldot (k))   +   .0000000001) 
dfot(k)=float(ldot(k))   /    (f loat(ldacc(k))  +   .0000000001) 
dprh(k)=float(dtrh(k))    /    (drhac(k)   +   .0000000001) 
dpot(k)=float(dtot(k))   /    (dotac(k)   +   .0000000001) 

III  cont  inue 
c 

c     Calculate  state  factors 

asacc=tsacc  /  (f loat(lsacc)  +  .0000000001) 
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ascrw=float (screw)  /  (f loat(lsacc)  +  .0000000001) 

asrh=float(strh)  /  (float(lsrh)  +  .0000000001) 

asrac=srhac  /  (float(lsrh)  +  .0000000001) 

sfrh=float(lsrh)  /  (float (lsacc)  +  .0000000001) 

asot=float(stot)  /  (float(lsot)  +  .0000000001) 

asoac=sotac  /  (float (lsot)  +  .0000000001) 

sfot=float(lsot)  /  (float(lsacc)  +  .0000000001) 

sprh=float(strh)  /  (srhac  +  .0000000001) 

spot=float(stot)  /  (sotac  +  .0000000001) 

return 

end 

subroutine  ds tmat ( lace , ldacc , lsacc , qsml , qsm2 , qsm3 , qsm4 , qsm5 , qsm6 , 

*  lsml , lsm2 , lsm3 , lsm4 , lsm5 , lsm6 , smlac , sm2ac , sm3ac , 

*  sm4ac,sm5ac,sm6ac,df sml ,df sm2,df sm3,df sm4, 

*  df  sm5 , df  sm6 , dasml , dasm2 , dasm3 , dasm4 , dasm5 , dasm6 , 

*  sf sml , sf  sm2 , sf  sm3 , sf  sm4 , sf  sm5 , sf  sm6 , sasml , sasm2 , 

*  sasm3 , sasm4 , sasm5 , sasm6 , dpsml , dpsm2 , dpsm3 , dpsm4 , 

*  dpsm5 , dpsm6 , sp  sml , spsm2 , spsm3 , spsm4 , sp  sm5 , spsm6 ) 
c*********************************************************************** 
c***************************************************************** 

c*  ** 

c*    DSTMAT  ** 

c*  ** 

c*  This  subroutine  summarizes  material  information  for  each  dis-  ** 

c*  trict,  and  for  the  state  as  a  whole.  ** 

c*  ** 

c*  The  following  values  for  each  subdisrict  are  provided  from 

c*  other  subroutines:  ** 

c*  ** 

c*  qsml  —  total  amount  of  specified  material  1  used  (specified  ** 

c*  material  1  is  the  first  material  listed  in  the  input  ** 

c*  parameter  file)                                 ** 

c*  lsml  —  total  number  of  times  specified  material  1  was  used   ** 

c*  smlac  —  total  work  accomplished  when  specified  material  1  was  ** 

c*  used                                          ** 

c*  These  three  variables,  qsm_,  lsm_,  and  am_ac,  are  repeated  for  ** 

c*  for  each  specified  material,  1  through  6.            ** 

c*  ldacc  —  total  number  of  times  the  activity  was  performed  by   ** 

c*  each  district                                   ** 


c*  Using  this  information,  the  following  factors  are  calculated:  ** 

c*  ** 

c*  dqsml  —  total  district  amount  of  specified  material  1  used  ** 

c*  (specified  material  1  is  the  first  material  listed  in  ** 

c*  the  input  parameter  file)  =  sum  of  qsml  for  each  ** 

c*  district  ** 

c*  ldsml  —  total  number  of  times  specified  material  1  was  used  ** 

c*  in  the  district  ■  sum  of  lsml  for  each  district  ** 

c*  dmlac  —  total  district  work  accomplished  when  specified  ** 

c*  material  1  was  used  =  sum  of  smlac  for  each  district  ** 

c*  ** 

c*  sqsml  —  total  state  amount  of  specified  material  1  used  ** 

c*  (specified  material  1  is  the  first  material  listed  in  ** 
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c*  the  input  parameter  file)  =  sum  of  all  qsml  values  ** 

c*  lssml  —  total  number  of  times  specified  material  1  was  used  ** 

c*  in  .the  state  =  sum  of  all  lsml  values  ** 

c*  sacml  —  total  state  work,  accomplished  when  specified  material  ** 

c*  1  was  used  =  sum  of  all  smlac  values  ** 

c*  ** 

c*     These  six  variables  are  repeated  for  each  specified  material,   ** 
c*  1  through  6.  ** 

c*  ** 

c*   The  following  factors  are  calculated  for  each  IDOH  district:     ** 
c*  ** 

c*  dfsml  —  fraction  of  time  specified  material  1  is  used  ** 

c*  =  ldsml  /  ldacc  ** 

c*  dasml  —  average  quantity  of  specified  material  1  used  per  ** 

c*  crew  day  when  that  material  is  used  =  dqsml  /  ldsml  ** 

c*  dpsml  —  district  productivity  with  specified  material  1  ** 

c*  =  dqsml  /  dmlac  ** 

c*  ** 

c*     These  three  factors,  dfsm_,  dasm_,  and  dpsm_,  are  repeated  for  ** 
c*  each  specified  material,  1  through  6.  ** 

c*  ** 

c*  Similar  calculations  are  made  for  the  state  as  a  whole:  ** 

c*  ** 

c*  sfsml  —  fraction  of  time  specified  material  1  is  used  ** 

c*  =  lssml  /  lsacc  ** 

c*  sasml  —  average  quantity  of  specified  material  1  used  per  ** 

c*  crew  day  when  that  material  is  used  ■  sqsml  /  lssml  ** 

c*  spsml  —  state  productivity  with  specified  material  1  ** 

c*  =  sqsml  /  sacml  ** 

c*  ** 

c*     These  three  factors,  sfsm_,  sasm_,  and  spsm_,  are  repeated  for  ** 
c*  each  specified  material,  1  through  6.  ** 

c*  ** 

c*     NOTE:   In  calculating  the  factors  in  the  last  two  sections,    ** 
c*  0.0000000001  is  added  to  each  denominator  to  avoid  a    ** 

c*  floating  divide  by  zero  error.  ** 

c*  ** 

c*  ** 

c*********************************************************************** 
c *********************************************************************** 

dimension  Iacc(66),qsml(66),qsm2(66),qsm3(66),qsm4(66), 

*  qsm5(66),qsm6(66),lsml(66),lsm2(66),lsm3(66),lsm4(66), 

*  lsm5 ( 66 ) , lsm6 ( 66 ) , ldacc ( 6 ) , dq  sml ( 6 ) , dqsm2 ( 6 ) , dqsm3 ( 6 ) , 

*  dqsm4(6) ,dqsm5(6) ,dqsm6(6) , ldsml (6) , ldsm2(6) ,ldsm3(6), 

*  Idsm4(6),ldsm5(6),ldsm6(6),dfsml(6),dfsm2(6),dfsm3(6), 

*  df sm4(6) ,df sm5(6) ,df sm6(6) ,dasml(6) ,dasm2(6) ,dasm3(6) , 

*  dasm4(6),dasm5(6),dasm6(6), 

*  smlac ( 66 ) , sm2ac ( 66 ) , sm3ac ( 66 ) , sm4ac ( 66 ) , sm5ac ( 66 ) , 

*  sm6ac ( 66 ) , dmlac( 6 ) , dm2ac ( 6 ) , dm3ac ( 6 ) , dm4ac ( 6 ) , 

*  dm5ac(6),dm6ac(6),dpsml(6),dpsm2(6),dpsm3(6), 

*  dpsm4(6),dpsm5(6),dpsm6(6) 
c 

c  Because  this   subroutine   is    called  separately    to   calculate   the 
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c       interstate,  other  state  highway,  and  total  system  figures, 

c       the  district  and  state  summations  must  be  set  to  zero  each 

c      time  the  subroutine  is  used. 

c 

c     Set  state  summations  equal  to  zero 

sqsml=0. 

lssml=0 

sacml=0. 

sqsm2=0. 

Issm2=0 

sacm2=0. 

sqsm3=0. 

Issm3=0 

sacm3=0 . 

sqsm4=0. 

Issm4=0 

sacm4=0 . 

sqsm5=0. 

Issm5=0 

sacm5=0 . 

sqsm6=0. 

Is  sm6=0 

sacm6=0 . 
c 
c     Set  summations  for  the  six  districts  equal  to  zero 

do  1  k=l,6 

dqsml(k)=0. 

ldsml(k)=0 

dmlac(k)=0. 

dqsm2(k)=0. 

Idsm2(k)=0 

dm2ac(k)=0. 

dqsm3(k)=0. 

Idsm3(k)=0 

dm3ac(k)=0. 

dqsm4(k)=0. 

Idsm4(k)=0 

dm4ac(k)=0. 

dqsm5(k)=0. 

Idsm5(k)=0 

dm5ac(k)=0. 

dqsm6(k)=0. 

Idsm6(k)=0 

dm6ac(k)=0. 
1    continue 
c 

c  Make  the   desired  summations   for  ech  district,    and   the  entire 

c  state.      Counter   j   tracksthe   subdistricts,    while   counter  k 

c  tracks   the  six  districts. 

jl=10 

j2=16 

k=l 
10       do   11    j-jl,j2 
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11 


20 


30 


40 


dqsml  (k)=dqsml  (k)+qsml  (  j 

ldsml  (k  )=ldsml  (k  )+lsml  (  j 

sqsml=sqsml+qsml ( j ) 

lssml=lssml+lsml ( j ) 

dmlac(k)=dmlac(k)+smlac( j) 

sacml=sacml+smlac ( j ) 

dqsm2(k)=dqsm2(k)+qsm2(j 

Idsm2(k)=ldsm2(k)+lsm2(j 

sqsm2=sqsm2+qsm2 ( j ) 

Issm2=lssm2+lsm2 ( j ) 

dm2ac(k)=dm2ac(k)+sm2ac(j) 

sacm2=sacm2+sm2ac ( j ) 

dqsm3(k)=dqsm3(k)+qsm3(j 

Idsm3(k)=ldsm3(k)+lsm3(j 

sqsm3=sqsm3+qsm3 ( j ) 

Issm3=lssm3+lsm3 ( j ) 

dm3ac (k ) =dm3ac (k )+sm3ac ( j ) 

sacm3=sacm3+sm3ac ( j ) 

dqsm4(k)=dqsm4(k)+qsm4( j 

Idsm4(k)=ldsm4(k)+lsm4(j 

sqsm4=sqsm4+qsm4 ( j ) 

Issm4=lssm4+lsm4( j ) 

dm4ac (k ) =dm4ac (k )+sm4ac ( j ) 

sacm4=sacm4+sm4ac ( j ) 

dqsm5(k)=dqsm5(k)+qsm5(j 

ldsm5 (k )=ldsm5 (k )+lsm5 ( j 

sqsm5=sqsm5+qsm5 ( j ) 

Issm5=lssm5+lsm5 ( j ) 

dm5ac(k)=dm5ac(k)+sm5ac( j) 

sacm5=sacm5+sm5ac( j ) 

dqsm6(k)=dqsm6(k)+qsm6( j 

Idsra6(k)=ldsm6(k)+lsm6(j 

sqsm6=sqsm64qsm6 ( j ) 

Issm6=lssm6+lsm6( j) 

dm6ac (k )=dm6ac (k )+sm6ac ( j ) 

sacm6=sacm6+sm6ac ( j ) 

continue 

if(k.eq.l)go  to  20 

if(k.eq.2)go  to  30 

if(k.eq.3)go  to  40 

if(k.eq.4)go  to  50 

if(k.eq.5)go  to  60 

if(k.eq.6)go  to  70 

jl=20 

j2=26 

k=2 

go  to  10 

jl=30 

j2=36 

k=3 

go  to  10 

jl=40 

j2=47 
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50 


60 


70 


100 


111 


lc-4 

go  to   10 

jl=»50 

j2=56 

k-5 

go  to   10 

jl-60 

J2-66 

k-6 

go  to   10 

continue 

Calculate  the  various  factors   for  each  of   the  six  districts. 

do  111  k=l,6 

dfsml(k)='float(ldsml(k))  / 

dfsm2(k)-float(ldsm2(k))  / 

dfsm3(k)=-float(ldsm3(k))  / 

dfsm4(k)=float(ldsm4(k))  / 

dfsm5(k)-float(ldsm5(k))  / 

dfsm6(k)«float(ldsm6(k))  / 


(float (ldacc(k)) 
(float(ldacc(k)) 
(float (ldacc(k)) 
(float(ldacc(k)) 
(float (ldacc(k)) 
(float(ldacc(k)) 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 


dasml(k)-dqsml(k)  / 
dasm2(k)-dqsm2(k)  / 
dasm3(k)=dqsm3(k)  / 
dasm4(k)-dqsm4(k)  / 
dasm5(k)-dqsm5(k)  / 
dasm6(k)«dqsm6(k)  / 
dpsml(k)»dqsml(k)  / 
dpsm2(k)-dqsm2(k)  / 
dpsm3(k)=dqsm3(k)  / 
dpsm4(k)=dqsm4(k)  / 
dpsm5(k)=dqsm5(k)  / 
dpsm6(k)»dqsm6(k)  / 
continue 


(float(ldsml(k)) 
(float (ldsm2(k)) 
(float (ldsm3(k)) 
(float(ldsm4(k)) 
(float (ldsm5(k)) 
(float(ldsm6(k)) 
(dmlac(k)  + 
(dm2ac(k)  + 
(dm3ac(k)  + 
(dm4ac(k)  + 
(dm5ac(k)  + 
(dm6ac(k)  + 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 


Calculate  state  factors 


sfsml=float(lssml)  / 
sf sm2»f loat(lssm2)  / 
sf sm3=f loat (lssm3)  / 
sf sm4-f loat(lssm4)  / 
sf sm5-float(lssm5)  / 
sf sm6=f loat(lssm6)  / 


sasml="sqsml 
sasm2"sqsm2 
8asm3"sqsni3 
sasm4-sqsm4 
sasm5Bsqsm5 
sasm6"sqsm6 
spsml=sqsml 
spsm2asqsm2 
spsm3asqsm3 
spsm4-sqsm4 
spsmi^sqsraS 
spsm6=sqsm6 


(f loat(lssml) 
(float (Is sm2) 
(float (lssm3) 
(float (Is sm4) 
(float (lssm5) 
(float (Is sm6) 
(sacml  + 
(sacm2  + 
(sacm3  + 
(sacm4  + 
(sacm5  + 
(sacm6  + 


(f loat(lsacc) 
(f loat(lsacc) 
(f loat(lsacc) 
(f loat(lsacc) 
(f loat(lsacc) 
(f loat(lsacc) 
+ 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 


.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
.0000000001) 
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return 

end 

subroutine   ds t cs t ( csm, crh , co t , ldacc , t dace , adrh , adot , df  rh , 

*  df  ot , df  sml , df  sm2 , df sm3 , df sm4 , df sm5 ,  df  smb , 

*  dasml , dasm2, dasm3,dasm4,dasm5  sdasm6, lsacc, 

*  tsacc,asrh,asot,sf rh,sf ot,sf sml,sf sm2,sf sm3, 

*  sf sm4,sf sm5,sf sm6,sasml ,sasm2,sasm3,sasm4, 

*  sasm5 , sasm6 , dacrh, dacot , dacsml , dacsm2 , dacsm3 , 

*  dscsm4 , dacsm5 , dacsm6 , daclab, dacmat , dactot , 

*  sacrh, sacot , sacsml , sacsm2 , sacsm3 , sacsm4 , 

*  sacsm5 , sacsm6 , saclab, sacmat , sactot ) 
c*********************************************************************** 

c*  ** 

c*          DSTCST  ** 

c*  ** 

c*    Using  information  from  other  routines,  the  average  cost  per  ** 

c*      accomplishment  unit  for  each  district  and  the  state  as  a  ** 

c*     whole  are  calculated  here.  The  cost  is  for  labor  and  ** 

c*      materials  only.  ** 

c*  ** 

c*    The  following  information  is  provided  by  other  subroutines:  ** 

c*  ** 

c*      ldacc  —  the  total  number  of  times  the  activity  was  perform-  ** 

c*              ed  in  each  district  ** 

c*      tdacc  —  total  district  accomplishment  (amount  of  work  done)  ** 

c*     adrh   — ■  average  district  regular  hours  per  crew  day  ** 

c*      dfrh   —  fraction  of  time  regular-time  hours  were  used  ** 

c*      crh    —  regular  labor  wage  per  hour  ** 

c*      adot   —  average  district  overtime  hours  per  crew  day  ** 

c*     dfot   —  fraction  of  time  overtime  hours  were  used  ** 

c*      cot    —  overtime  labor  wage  per  hour  ** 

c*     dfsml  —  fraction  of  time  specified  material  1  is  used  ** 

c*      dasml  —  average  quantity  of  specified  material  1  used  per  ** 

c*              crew  day  when  that  material  is  used  ** 

c*      csm(l)  —  unit  cost  for  specified  material  1  ** 

c*      These  three  factors,  dfsm_,  dasm_,  and  csm  are  repeated  for  ** 

c*             each  specified  material,  1  through  6.  ** 

c*  ** 

c*    Cost  is  calculated  as  follows:  ** 

c*  ** 

c*    Resource  cost  per  unit  of  accomplishment  ■  ** 

c*      (#  of  records  *  Fraction  of  time  resource  is  used  *  ** 

c*      Avg  quantity  of  resource  when  used  *  Unit  cost  of  resource)  ** 

c*       /  Total  accomplishment  ** 

c*  ** 

c*     The  following  district  cost  figures  are  calculated:  ** 

c*  ** 

c*     dacrh   —  average  cost  for  regular  labor  =  (ldacc  *  dfrh  *  ** 

c*              adrh  *  crh)  /  tdacc  ** 

c*     dacot   —  average  cost  for  overtime  labor  =  (ldacc  *  dfot  *  ** 

c*              adot  *  cot)  /  tdacc  ** 

c*     dacsml  —  average  cost  for  specified  material  1  =  (ldacc  *  ** 
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c*                                    dfsml   *  dasml   *   csm(l))    /   tdacc  ** 

c*                            This   material  cost   calculation  is   made  for  each  speci-  ** 

c*                            fied  material,    1   through  6.  ** 

c*           NOTE:      In  the  above   calculations,    0.0000000001   is   added  to  ** 

c*                          denominator  to  avoid  a  possible  floating  divide   by  zero  ** 

c*                          error.  ** 

c*  ** 

c*           daclab     —  average   cost   for   labor  ■  dacrh  +  dacot  ** 

c*           dacmat     —  average   cost  for  materials  ■  dacsml  +  dacsm2  +  ...  ** 

c*                                    +  dacsm6  ** 

c*           dactot     —  average  total   cost   for  materials   and   labor  =  ** 

c*                                  daclab  +  dacmat  ** 

c*  ** 

c*       Similar  calculations   are  made  for  the  state  as   a  whole:  ** 

c*  ** 

c*     sacrh   —  average  cost  for  regular  labor  ■  (lsacc  *  sfrh  *  ** 

c*              asrh  *  crh)  /  tsacc  ** 

c*     sacot   —  average  cost  for  overtime  labor  =  (lsacc  *  sfot  *  ** 

c*              asot  *  cot)  /  tsacc  ** 

c*     sacsml  —  average  cost  for  specified  material  1  =  (lsacc  *  ** 

c*              sfsml  *  sasml  *  csm(l))  /  tsacc  ** 

c*           This  material  cost  calculation  is  made  for  each  speci-  ** 

c*           fied  material,  1  through  6.  ** 

c*     NOTE:   In  the  above  calculations,  0.0000000001  is  added  to  ** 

c*           denominator  to  avoid  a  possible  floating  divide  by  zero  ** 

c*          error.  ** 

c*  ** 

c*     saclab  —  average  cost  for  labor  ■  sacrh  +  sacot  ** 

c*     sacmat  —  average  cost  for  materials  ■  sacsml  +  sacsm2  +  ...  ** 

c*               +  sacsm6  ** 

c*     sactot  —  average  total  cost  for  materials  and  labor  =  ** 

c*              saclab  +  sacmat  ** 

c*  ** 

c*  ** 
c*********************************************************************** 
c ******************************************* **************************** 
dimension  csm(6),ldacc(6),tdacc(6),adrh(6),adot(6), 

*  dfrh(6),dfot(6),dfsml(6),dfsm2(6),dfsm3(6),dfsm4(6), 

*  df  sm5 (6),dfsm6(6), dasml ( 6 ) , dasm2 ( 6 ) , dasm3 ( 6 ) , dasm4 ( 6 ) , 

*  dasm5(6),dasm6(6), 

*  dacrh (6), dacot (6), dacsml (6) ,dacsm2(6) ,dacsm3(6) , 

*  dacsm4 ( 6 ) , dacsm5 ( 6 ) , dacsm6 ( 6 ) , daclab( 6 ) , dacmat ( 6 ) , 

*  dactot(6) 
c 

c     Cost  is  calculated  as  follows: 

c     Resource  cost  per  unit  of  accomplishment  = 

c       (#  of  records  *  Fraction  of  time  resource  is  used  * 

c       Avg  quantity  of  resource  when  used  *  Unit  cost  of  resource)  / 

c       Total  accomplishment 

c 

c     Calculate  district  cost  figures 

do  10  j-1,6 

dacrh(j)=(float(ldacc(j))  *  dfrh(j)  *  adrh(j)  *  crh)  /  (tdacc(j) 
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10 


adot(j)  *  cot)  /  (tdacc(j) 
*  dasml(j)  *  csm(l))  / 


*  +  .0000000001) 
dacot(j)=(float(ldacc(j))  *  dfot(j)  * 

*  +  .0000000001) 
dacsml(j)=(float(ldacc(j))  *  dfsml(j) 

*  (tdacc(j)  +  .0000000001) 
dacsm2(j)=(float(ldacc(j))  *  dfsm2(j) 

*  (tdacc(j)  +  .0000000001) 
dacsm3(j)=(float(ldacc(j))  *  dfsm3(j) 

*  (tdacc(j)  +  .0000000001) 
dacsm4(j)=(float(ldacc(j))  *  dfsm4(j) 

*  (tdacc(j)  +  .0000000001) 
dacsm5(j)=(float(ldacc(j))  *  dfsm5(j) 

*  (tdacc(j)  +  .0000000001) 
dacsm6( j)=(f loat(ldacc( j))  *  dfsm6(j) 

*  (tdacc(j)  +  .0000000001) 
dadab(j)=dacrh(  j)  +  dacot(j) 

dacmat(j)=dacsml(j)  +  dacsm2(j)  +  dacsm3(j)  +  dacsm4(j)  + 

*  dacsm5(j)  +  dacsm6(j) 
dactot( j)=daclab( j)  +  dacmat(j) 
continue 


dasm2(j)   * 

csm(2)) 

/ 

dasm3(j)   * 

csm(3)) 

/ 

dasm4(j)   * 

csra(4)) 

/ 

dasm5(j)  * 

csm(5)) 

/ 

dasm6(j)   * 

csm(6)) 

/ 

Calculate  state  cost  figures 
sacrh=(f loat(lsacc)  *  sfrh  * 
sacot=(f loat(lsacc)  *  sfot  * 
sacsml=(f loat (lsacc)  *  sfsml 

*  (tsacc  +  .0000000001) 
sacsm2=(f loat (lsacc)  *  sfsm2  *  sasm2 

*  (tsacc  +  .0000000001) 
sacsm3=(f loat (lsacc)  *  sfsm3  *  sasm3  * 

*  (tsacc  +  .0000000001) 
sacsm4=(f loat (lsacc)  *  sfsm4  *  sasm4  * 

*  (tsacc  +  .0000000001) 
sacsm5=(f loat (lsacc)  *  sfsm5  *  sasm5  * 

*  (tsacc  +  .0000000001) 
sacsm6=(f loat (lsacc)  *  sfsm6  *  sasm6  * 

*  (tsacc  +  .0000000001) 
saclab=sacrh  +  sacot 
sacmat=sacsml  +  sacsm2  +  sacsm3  + 
sactot=saclab  +  sacmat 
return 
end 


asrh  *  crh)  /  (tsacc  + 
asot  *  cot)  /  (tsacc  + 
*  sasml  *  csm(l))  / 


.0000000001) 
.0000000001) 


*  csm(2))  / 
csm<3))  / 
csm(4))  / 
csm(5))  / 
csm(6))  / 

sacsm4  +  sacsm5  +  sacsm6 
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subroutine  pdist(iact,dact,uact,ibm,iby,iem,iey,iclass,ldacc, 

*  tdacc.adacc.adcrw, ldrh,dprh,adrh,df rh.ldot , 

*  dpot,adot,df ot,sm,df sml , df sm2,df sm3,df sm4,df sm5, 

*  df sm6,dasml ,dasm2,dasm3,dasm4,dasm5,dasm6,dpsml , 

*  dpsm2 , dpsm3 , dpsm4 , dpsm5 , dpsm6 , dacrh , daco t , dacsml , 

*  dacsm2 , dacsm3 , dacsm4 , dacsm5 , dacsm6 , daclab , dacmat , 

*  dactot) 

c *********************************************************************** 
c*********************************************************************** 
c*  ** 

c*  PDIST  ** 

c*  ** 

c*  This   subroutine  prints    the    district   summary   information    just  ** 

c*  calculated  by  DSTLAB,    DSTMAT,    and  DSTCST.      One  page   contains      ** 

c*  the    labor,    material,    and   cost   summary   for   each   of    the   six  ** 

c*  1D0H  districts.  ** 

c*  ** 

c *********************************************************************** 

c**************************************************** ************* ****** 
dimension   ldacc(6) ,tdacc(6) ,adacc(6) ,adcrw(6),ldrh(6) ,dprh(6) , 

*  adrh(6),dfrh(6),ldot(6),dpot(6),adot(6),dfot(6), 

*  sm(6),dfsml(6),dfsm2(6),dfsm3(6),dfsm4(6),dfsm5(6), 

*  df sm6( 6 ) , dasml ( 6 ) , dasm2 ( 6 ) , dasm3( 6 ) , dasm4 ( 6 ) , dasm5 ( 6 ) , 

*  dasm6(6),dpsml(6) ,dpsm2(6),dpsm3(6) ,dpsm4(6) ,dpsm5(6) , 

*  dpsm6( 6 ) , dacrh( 6 ) , dacot ( 6 ) , dacsml ( 6 ) , dacsm2 ( 6 ) , 

*  dacsm3 ( 6 ) , dacsm4 ( 6 ) , dacsm5 ( 6 ) , dacsm6 ( 6 ) , daclab ( 6 ) , 

*  dacmat (6), dactot (6) 
character  uact*20,dact*40 
integer  sm 

c 

c  Print   page  header 

write(3,900)iact,dact,ibm,iby,iem,iey,uact 

900  format (lhl ,39hROUTINE  MAINTENANCE  REPORT  FOR  ACTIVITY, lx,i3, 

*  2x,a40,5x,4hFROM,lx,i2,lh-,i2,lx,7hTHROUGH,lx,i2,lh-,i2, 

*  /,21x,20hACCOMPLISHMENT  UNIT: ,5x,a20) 
c 

c     Check  to  see  if  printing  information  for  the  interstate,  other 
c       state  highway,  or  total  system,  and  print  appropriate  heading 

if (iclass.ne.O)go  to  10 

write(3,901) 

901  format (/,lx,31hDISTRICT  SUMMARY  FOR  INTERSTATE) 
go  to  12 

10  continue 

if (iclass.ne. l)go  to  11 
write(3,902) 

902  format(/, lx,40hDISTRICT  SUMMARY  FOR  OTHER  STATE  HIGHWAY) 
go  to  12 

11  continue 
write(3,903) 

903  format (/,lx,45hDISTRICT    SUMMARY    FOR  TOTAL    (INT  +  OSH)    SYSTEM) 

12  continue 
write(3,904) 

904  format (////, lx,17hLAB0R  INFORMATION,/) 
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c 

c     Print  column  headings  for  labor  section 
write(3,905) 

905  format (8x,4hCREW,4x,14hACCOMPLISHMENT,5x,3hAVG,6x, 

*  6hT0T  RH,18x,6hRH/TOT,4x,6hTOT  0T, 18x,6hOT/TOT, /, 

*  lx,4hDIST,3x,4hDAYS,4x,5hT0TAL,6x,3hAVG,5x, 

*  4hCREW,6x,4hDAYS,3x,6hRH/ACC,2x,6hAVG  RH,3x,4hDAYS, 

*  6x,4hDAYS,3x,6hOT/ACC,2x,6hAVG  OT,3x,4hDAYS) 
write(3,906) 

906  format (lx,4h ,2x,6(lh-),2x,9(lh-) ,2(2x,6( lh-)) ,4x,6(lh-) , 

*  3(2x,6(lh-)),4x,6(lh-),3(2x,6(lh-))) 
c 

c     Write  labor  information  for  each  district 
do  13  k-1,6 
write(3,907)k,ldacc(k),tdacc(k),adacc(k),adcrw(k),ldrh(k), 

*  ■       .  dprh(k),adrh(k),dfrh(k),ldot(k),dpot(k),adot(k), 

*  dfot(k) 

907  format(lx,i4,2x,i6,2x,f9.1,2x,f6.1,2x,f6.2,4x,i6,2(2x,f6.2), 

*  2x,f6.3,4x,i6,2(2x,f6.2),2x,f6.3) 

13  continue 
c 

c  Print   column  headings  for  material  section 

write(3,908) 

908  format (////, lx,20hMATERIAL   INFORMATION,/) 
write(3,909)(sm(j),j=l,6) 

909  f  ormat  (6x,  4hCREW,  lx,  6(  lx,  8h MAT ,  lx,  i4 ,  5h ) ) 

write(3,910) 

910  f ormat (lx,4hDIST,lx,4hDAYS,lx,6(lx,4hFRAC,lx,6hAVGQNT,lx, 

*  6hQNT/AC)) 
write(3,911) 

911  format  (lx,4h ,lx,5h ,6(lx,4h ,2(lx,6(lh-)))) 

c 

c  Write  material  information  for  each   district 

do   14  k=l,6 
write(3,912)k,ldacc(k),dfsml(k),dasml(k),dpsml(k),dfsm2(k), 

*  dasm2(k),dpsm2(k),df sm3(k),dasm3(k) , dpsm3(k), 

*  dfsm4(k),dasm4(k),dpsm4(k),df sm5(k),dasm5(k), 

*  dpsm5(k),df sm6(k),dasm6(k) ,dpsra6(k) 

912  format(lx,i4,lx,i5,6(lx,f4.2,lx,f6.2,lx,f6.2)) 

14  continue 
c 

c  Write   column  headings   for   cost   section 

write(3,913) 

913  format (////, lx,16hC0ST   INFORMATION, 5x, 

*  50h(ALL   COSTS    ARE   DOLLARS    PER  UNIT  OF   ACCOMPLISHMENT),/) 
write(3,914) 

914  format(8x,4hCREW,5x,5hTOTAL,33x,18(lh-),17hCOSTS   BY  MATERIAL, 

*  23(lh-)) 
write(3,915)(sm(j),j=l,6) 

915  f ormat (lx,4hUNIT,3x,4hDAYS,5x,6hACCOMP,2x,8hTOT  C0ST,2x, 

*  8hLAB  COST,2x,8hMAT  C0ST,2x,6(2x,i4 ,4x) ) 
write(3,916) 

916  format (lx,4h ,2x,6(lh-) ,4x,6(lh-),9(2x,8(lh-)) ) 
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c 

c  Write   cost   information  for   each   district 

do   15   j=l,6 

write(3,917)j,ldacc(j),tdacc(j),dactot(j),daclab(j),dacmat(j), 

*  dacsml ( j ) , dacsm2( j ) , dacsm3( j ) , dacsm4 ( j ) , dacsm5 ( j ) , 

*  dacsm6(j) 

917  format(lx,i4,2x,i6,2x,f8.1,9(2x,f8.3)) 
15   continue 

return 

end 

subroutine  pstate (iact , dact ,uact , ibm, iby , iem, iey , iclass , lsacc , 

*  tsacc,asacc,ascrw,lsrh,sprh,asrh,sf rh.lsot, 

*  spot , asot , sf  ot , sm, sf  sml , sf  sm2 , sf  sm3 , sf  sm4 , sf  sm5 , 

*  sf sm6,sasml , sasm2,sasm3,sasm4,sasm5,sasm6,spsml , 

*  spsm2,spsm3,spsm4,spsm5,spsm6,sacrh,sacot,sacsml , 

*  sacsm2,sacsm3,sacsm4,sacsm5,sacsm6,saclab,sacmat, 
*'         sactot) 

c*********************************************************************** 
c*  ** 

c*  PSTATE  ** 

c*  ** 

c*         This   subroutine  prints    the  state   summary   information   calculated   ** 
c*  by  DSTLAB,   MATLAB,    and  DSTCST.     One  page   contains    the  summary   ** 

c*  of   labor,    materials,    and   cost   for   the  state  as   a  whole.  ** 

c*  ** 

c*********************************************************************** 
c *********************************************************************** 

dimension  sm(6) 

integer  sm 

character  uact*20,dact*40 
c 
c  Write  page  header 

write(3,900)iact,dact,ibm,iby,iem,iey,uact 

900  format (lhl ,39hROUTINE   MAINTENANCE   REPORT   FOR  ACTIVITY, lx,i3, 

*  2x,a40,5x,4hFROM,lx,i2,lh-,i2,lx,7hTHROUGH,lx,i2,lh-,i2, 

*  /,21x,20hACC0MPLISHMENT  UNIT: ,5x,a20) 
c 

c     Check  to  see  if  printing  information  for  the  interstate,  other 
c      state  highway,  or  total  system,  and  print  appropriate  heading 

if (iclass. ne.0)go  to  10 

write(3,901) 

901  format (/,lx,28hSTATE  SUMMARY  FOR  INTERSTATE) 
go  to  12 

10  continue 

if (iclass. ne.l)go  to  11 
write(3,902) 

902  format(/,lx,37hSTATE  SUMMARY  FOR  OTHER  STATE  HIGHWAY) 
go  to  12 

11  continue 
write(3,903) 

903  format (/,lx,42hSTATE  SUMMARY  FOR  TOTAL  (INT  +  0SH)  SYSTEM) 

12  continue 
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c 

c  Print   column  headings   for   the   labor   section 

write(3,904) 

904  format (////, lx,17hLAB0R  INFORMATION,/) 
write(3,905) 

905  format (8x,4hCREW,4x,14hACCOMPLISHMENT,5x,3hAVG,6x, 

*  6hT0T  RH,18x,6hRH/TOT,4x,6hTOT  0T, 18x,6hOT/TOT, /, 

*  lx,4hDIST,3x,4hDAYS,4x,5hTOTAL,6x,3hAVG,5x, 

*  4hCREW,6x,4hDAYS,3x,6hRH/ACC,2x,6hAVG  RH,3x,4hDAYS, 

*  6x,4hDAYS,3x,6hOT/ACC,2x,6hAVG  0T,3x,4hDAYS) 
write(3,906) 

906  format (lx,4h ,2x,6(lh-),2x,9(lh-),2(2x,6(lh-)) ,4x,6(lh-), 

*  3(2x,6(lh-)),4x,6(lh-),3(2x,6(lh-))) 
c 

c  Print  state   labor   information 

write(3,907)lsacc,tsacc,asacc,ascrw,lsrh, 

*  sprh,asrh,sf rh,lsot,spot,asot , 

*  sfot 

907  format(2x,3hALL,2x,i6,2x,f9.1,2x,f6.1,2x,f6.2,4x,i6,2(2x,f6.2), 

*  2x,f6.3,4x,i6,2(2x,f6.2),2x,f6.3) 
c 

c     Print  headings  for  the  material  section 
write(3,908) 

908  format (////, lx,20hMATERIAL  INFORMATION,/) 
write(3,909)(sm(j),j=l,6) 

909  format  (6x,4hCREW,lx,6(lx,8h MAT,lx,i4,5h )) 

write(3,910) 

910  format(lx,4hDIST,lx,4hDAYS,lx,6(lx,4hFRAC,lx,6hAVGQNT,lx, 

*  6hQNT/AC)) 
write(3,911) 

911  format  (lx,4h ,lx,5h ,6(lx,4h ,2(lx,6(lh-)) )) 

c 

c     Print  material  information 

write(3,912)lsacc,sf sml ,sasml ,spsml ,sf sm2, 

*  sasm2,spsm2,sf sm3,sasm3,spsm3, 

*  sf sm4,sasm4,spsm4,sf sm5,sasm5, 

*  spsm5,sf sm6,sasm6,spsm6 

912  format(2x,3hALL,lx,i5,6(lx,f4.2,lx,f6.2,lx,f6.2)) 
c 

c     Print  headings  for  the  cost  section 
write(3,913) 

913  format(////, lx,16hC0ST  INFORMATION, 5x, 

*  50h(ALL  COSTS  ARE  DOLLARS  PER  UNIT  OF  ACCOMPLISHMENT),/) 
write(3,914) 

914  format(8x,4hCREW,5x,5hTOTAL,33x,18(lh-),17hCOSTS  BY  MATERIAL, 

*  23(lh-)) 
write(3,915)(sm(j),j=l,6) 

915  format(lx,4hUNIT,3x,4hDAYS,5x,6hACC0MP,2x,8hT0T  C0ST,2x, 

*  8hLAB  C0ST,2x,8hMAT  C0ST,2x,6(2x,i4,4x) ) 
write(3,916) 

916  format (lx,4h ,2x,6(lh-),4x,6(lh-),9(2x,8(lh-))) 

c 

c  Print   cost   information 
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write(3,917)lsacc,tsacc,sactot,saclab,sacmat, 

*  sacsml ,sacsm2,sacsm3,sacsm4,sacsm5, 

*  sacsm6 

917  format(2x.,3hALL,2x,i6,2x,f8.1,9(2x,f8.3)) 
return 
end 
subroutine  devest (iact , dact , ibm, iby , iem, ley , iclass , 

*  idev, sdev, cos t , nunit , dunit , a vg , uact ) 

c*** ******************************************************************** 

c*********************************************************************** 

c*  ** 

c*  DEVCST  ** 

c*  ** 

c*         This   subroutine  will  identify   deviate  units   based  on   cost   pro-  ** 

c*  ductivity.     This   routine  is   called  only  if   the  user  has  ** 

c*  specified  that  a   deviation  analysis   is   to   be   conducted.  ** 

c*  The  subroutine  takes   the  average  total  cost  for  each  subdis-  ** 

c*  trict,    calculates   the  average  and  standard   deviation,    and  ** 

c*  calculates   limits   based  on  the  average  plus   or  minus  a  spec-  ** 

c*  ified  number  of   standard  deviations.     A  subdistrict   is    iden-  ** 

c*  tified  as   being  deviate  if   its   average   cost  falls   outside  ** 

c*  these   limits.  ** 

c*  ** 

c*         The  following  variables   are  used  in   this   subroutine:  ** 

c*  ** 

c*  sdev       -  number   of   standard  deviations   to   be  used  in   deter-  ** 

c*  mining  limits   for   deviate  units  ** 

c*  cost       -  average   cost   for  each  subdistrict  ** 

c*  nunit     -  number  of   deviate  subdistricts   identified  ** 

c*  dunit     -  unit   number   of  a   deviate   subdistrict  ** 

c*  x2  -  sum  of   cost  squared  ** 

c*  sx  -  sum  of   cost  ** 

c*  n  total  number  of  units   in  calculation  of   standard  de-  ** 

c*  viation  ** 

c*  var         -  variance   of   average   cost  ** 

c*  avg         -  average   of   individual  subdistrict   cost   values  ** 

c*  sd  -  standard  deviation  of   average   cost  ** 

c*  ulimit   -  upper   limit   for   determining  deviate  units  ** 

c*  =  avg  +  (sdev  *  sd)  ** 

c*  llimit  -  lower   limit  for   determining  deviate  units  ** 

c*  ■  avg  -  (sdev  *  sd)  ** 

c*  ** 
c *********************************************************************** 
c*********************************************************************** 

integer  dunit 

character  uact*20,dact*40 

real  llimit 

dimension  cost (66), dunit (20) 
c 

c     Set  summations  for  cost  squared,  cost,  and  number  of  observations 
c       to  zero 

x2-0. 

sx-0. 
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n-0 
c 

c     Calculate  summation  of  cost  squared,  cost,  and  number  of 
c       observations  over  all  subdistricts.  Do  not  Include  units 
c       with  a  value  of  zero  for  cost. 
c 
c    j  keeps  track  of  units  numbers 

jl=»ll 

J2-16 

10  do   11    j-jl,j2 

if (cost(j).eq.0)go  to   11 
x2=x2  +  cost(j)**2 
sx=sx  +  cost(j) 
n=n+l 

11  continue 

if (jl.eq.ll)go  to  20 

lf(jl.eq.21)go   to   30 

if(jl.eq.31)go   to  40 

if(jl.eq.41)go  to  50 

if(jl.eq.51)go  to   60 

if(jl.eq.61)go  to  70 
20        jl=21 

j2-26 

go  to   10 
30        jl-31 

J2-36 

go  to   10 
40        jl-41 

J2-47 

go  to   10 
50        jl-51 

J2-56 

go  to   10 
60        jl=61 

J2-66 

go  to   10 
70       continue 
c 

c  To  calculate  standard  deviation,    there  must   be  at   least   2 

c  observations.      If   n  is    less    than  2,    do  not    calculate  standard 

c  deviation. 

if(n.le.l)go  to  200 
c 
c  Calculate  variance,    standard  deviation,    average,    and  limits 

var-(x2  -   (sx**2)/n)   /    (n-1) 

sd"var**.5 

avg»sx/n 

ulimit=»avg  +  sdev  *  sd 

llimit™avg  -  sdev  *  sd 
c 
c  Find  deviate  units 

nunit-0 
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c  j  keeps   track   of  unit   numbers 

jl=ll 

j2=16 
100     do   111    j=jl,j2 

if (cost(j).eq.0)go   to   111 

if ((cost(j).lt.llimit).or.(cost(j).gt.ulimit))go   to   112 

go  to  111 
112     nunit=nunit+l 

dunit(nunit)=j 
111      continue 

if (jl.eq.ll)go   to   120 

if(jl.eq.21)go   to   130 

if (jl.eq.31)go   to   140 

if(jl.eq.41)go   to   150 

if(jl.eq.51)go  to   160 

if (jl.eq.61)go   to   170 
120     jl=21 

j2=26 

go  to  100 
130  jl=31 

j2=36 

go  to  100 
140  jl=41 

j2=47 

go  to  100 
150  jl=51 

j2=56 

go  to  100 
160  jl=61 

j2=66 

go  to  100 
170  continue 
c 

c     Print  page  listing  deviate  units 
c 
c     Print  title 

write(3 , 907 )iact , dact , ibm, iby , iem, iey 

907  format (lhl ,39hROUTINE  MAINTENANCE  REPORT  FOR  ACTIVITY, lx,i3,2x, 
*       a40,5x,4hFR0M,lx,i2,lh-,i2,lx,7hTHROUGH,lx,i2,lh-,i2) 

c 

c  Determine  which  highway   class    this    is   for,    and  print   appropriate 

c  heading. 

if (iclass.ne.O)go  to  300 

write(3,908) 

908  format(/, lx,29hINTERSTATE  DEVIATION   ANALYSIS) 
go   to   320 

300     continue 

if (iclass.ne.l)go  to  310 
write(3,909) 

909  format (/,lx,38h0THER  STATE  HIGHWAY  DEVIATION  ANALYSIS) 
go  to  320 

310  continue 

write(3,910) 
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910  format(/,lx,36hTOTAL   (INT  +  OSH)   DEVIATION  ANALYSIS) 

320  continue 
c 

c  Print   number   of    standard  deviations   upon  which   deviation  analysis 

c  is   based 

write(3,905)sdev 

905  format (/,lx, 

*  52hDEVIATI0N  ANALYSIS  BASED  ON  COST  PRODUCTIVITY  +  OR  -, 

*  lx,f6.3,lx,21hSTANDARD  DEVIATION(S)) 
c 

c  Print   average,    standard  deviation,   and  limits 

write(3,901)avg,uact,sd,ulimit,llimit 
.901      format (/,lx,21hAVERAGE  PRODUCTIVITY=,lx,f 7.2,2x,llhDollars   per, 

*  lx,a20,/,lx,19hSTANDARD  DEVIATION=,3x,f7.2, /, 

*  lx,12hUPPER  LIMIT=,10x,f7.2,/, 

*  lx,12hL0WER  LIMIT=,10x,f7.2,/) 
c 

c  Print   total  number  of   deviate  units 
write(3,902)nunit 

902  format (/,lx,i4,lx,27hDEVIATE  UNITS  WERE  DETECTED) 
c 

c  Print   column  headings   for   list   of   deviate  units 

182  write(3,906) 

906  format (//,lx,4hUNIT,4x,25hPR0DUCTIVITY(C0ST/ACC0MP),/, 

*  lx,4h ,4x,25h ,/) 

183  continue 
c 

c  Print  unit   number  and  cost   value  of   each  deviate  subdistrict 

do  200  k=l,nunit 

write(3,904)dunit(k),cost(dunit(k)) 
904  format(lx,i2,2h00,4x,fll.2) 
200  continue 

return 

end 
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subroutine  s t dev ( val , vmax , avg , sd , am3 , am2 , ami , ap 1 , ap2 , ap3 ) 

c*********************************************************************** 
c*  ** 

c*    STDEV  ** 

c*  ** 

c*  This   subroutine  will  calculate   the  average,    standard   deviation,      ** 

c*  average     plus  and  minus   1,   2,   and  3  standard  deviations,   and       ** 

c*  the  maximum  value   of  a   group   of   numbers.     This   information  will  ** 

c*  be  used  to  make  a  bar  chart.                                                                           ** 

c*  ** 

c*  The  following  variables   are  used:  ** 

c*  ** 

c*  val  -  values   being  averaged  ** 

c*  x2  -  sum  of   val   squared   values  ** 

c*  sx  -  sum  of   val   values  ** 

c*  n  number   of   observations    (number   of   val   values)  ** 

c*  vmax  -  maximum  value  ** 

c*  avg  -  average   value  of   non-zero  val's  ** 

c*  sd  -  standard  deviation  ** 

c*  am3  -  avg  -  3  *  sd  ** 

c*  am2  -  avg  -  2  *  sd  ** 

c*  ami  -  avg  -  1  *  sd  ** 

c*  apl  -  avg  +  1  *  sd  ** 

c*  ap2  -  avg  +  2  *  sd  ** 

c*  ap3  -  avg  +  3  *  sd  ** 

c*  ** 

dimension  val (66) 
c 
c  Initialize  s2,    sx,   n,   and  vmax  to  zero 

x2-0. 

sx-0. 

n-0. 

vmax"0. 
c 

c  Find  vmax,   and  calculate  s2,   sx,   and  n,   using  nonzero  val  values 

c 
c  j  keeps   track  of   subdistricts 

jl-11 

J2-16 

10  do   12   j-jl,j2 

if (vmax.ge.val( j))go  to  11 
vmax"val ( j ) 

11  continue 
if(val(j).eq.0.)go  to   12 
x2-x2+val(j)**2 
sx"sx+val(j) 

n-n+1 

12  continue 
if(jl.eq.ll)go  to  20 
if(jl.eq.21)go  to  30 
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if(jl.eq.31)go   to  40 

if (jl.eq.41)go   to   50 

if (jl.eq.51)go   to  60 

if (jl.eq.61)go  to   70 
20       jl=21 

j2=26 

go  to   10 
30       jl=31 

J2-36 

go  to   10 
40        jl-41 

j2=47 

go  to   10 
50       jl=51 

J2-56 

go   to   10 
60        jl-61 

j2=66 

go  to   10 
70       continue 
c 

c  If  n  is   less    than  two,    standard  deviation  cannot   be   calculated, 

c  Check  for  this   condition. 

if(n.le.l)go   to   100 
c 

c  Calculate   variance,    standard  deviation,    average,   and  average 

c  plus   or  minus   1,    2,   and  3  standard  deviations 

var=(x2-(sx**2)/n)/(n-l) 

sd=var  **   .5 

avg=sx/n 

am3=avg-3*sd 

am2=avg-2*sd 

aml=avg-sd 

apl=avg+sd 

ap2=avg+2*sd 

ap3=avg+3*sd 
100     continue 

return 
'  end 

subroutine  bar (iact , dact ,uact , ibm, iby , iem, iey , iclass , ichart , 

*  sm,usm,actot,tacc,aacc,val,vmax, 

*  avg,sd,am3,am2,aml ,apl ,ap2,ap3) 
c*********************************************************************** 
c ************************************************************** ********* 
c*  ** 

c*    BAR  ** 

c*  ** 

c*  This   subroutine  will  print   a  bar   chart   of   average   cost   per              ** 

c*  production  unit   for  all  subdistricts.      In  addition  to   the   bar  ** 

c*  chart   of   average   cost,    the   values   for  averge   cost,    total   num-  ** 

c*  ber   of    crew  days,    and  average  and   total  accomplishment   are          ** 

c*  printed.     On  the  bar  chart,    the  average   value,    and  the  aver-     ** 

c*  plus   and   minus  a   number   of   standard  deviations   are  indicated.   ** 
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c*  ** 

c*  The  bar  chart   is   75  characters   long,   and  is   scaled  such  that          ** 

c*  the   bar  for  the  unit    (subdistrict)  with   the  highest   value   is     ** 

c*  75  characters   long.     On  the  first  and  last   lines   of   the                ** 

c*  chart,    the   locations   of   the  average  and   the  average  plus   or       ** 

c*  minus  up   to  three  standard  deviations  are  indicated.     The           ** 

c*  width   of   the   range  in  terms   of   standard   deviations   depends   on  ** 

c*  the  particular  values   involved.     If  any  of   the  limits    (A  lim-  ** 

c*  it  used  here   refers   to  a   value   of   the  average  plus   or  minus  a  ** 

c*  number  of   standard  deviations.)  are   less    than  zero  or   greater  ** 

c*  than   the   largest   value   for  a   subdistrict,    those    limits   are          ** 

c*  not  plotted  on  the  chart.     A  number  of   tests   are   required  to     ** 

c*  determine  which  set   of    limits   may   be  included  in   the    chart,        ** 

c*  and  call  the  appropriate  format   statement.     Also,    since  all       ** 

c*  values   must   be   rounded  to   the   nearest   integer  for  plotting         ** 

c*  (A  fraction  of   a  character  cannot   be  printed.)   the  possibili-  ** 

c*  ty  of   round-off   errors   must   be   considered.                                           ** 

c*  ** 

c*  Up   to  six  limits   may   be  printed  along  with   the  average:                    ** 

c*  ** 

c*  Lower   limits                                                                                                             ** 

c*  am3  -  Average  minus   three   standard  deviations                                     ** 

c*  am2  -  Average  minus   two  standard  deviations                                         ** 

c*  ami  -  Average  minus   one   standard  deviations                                         ** 

c*  Upper   limits                                                                                                             ** 

c*  apl  -  Average  plus   one  standard  deviations                                           ** 

c*  ap2  -  Average  plus    two  standard  deviations                                           ** 

c*  ap3  -  Average  plus   three   standard  deviations                                       ** 

c*  ** 

c*  First,    the  smallest  positive   lower  limit   is   determined.                ** 

** 

I  ** 

** 


c* 

c*  |                       3         2          1          A         1          2         3                       | 
c* 

c*  |<—  bm  — >|< 6b  +  7 >  |  <—  bl  —  >  |  ** 

c*  ** 

c*  bm  =  number  of  spaces  from  left  end  of  chart  (zero)  to  first    ** 

c*  limit,  in  this  case,  am3                               ** 

c*  b  ■  number  of  spaces  less  one  required  for  one  standard  devia-  ** 

c*  tion  (nint((sd/vmax)*75.)-l)                            ** 

c*  bl  ■  number  of  spaces  between  last  limit  and  right  end  of  chart  ** 

c*  A  ■  location  of  average                                   ** 

c*  3  ■  three  standard  deviations  from  average                   ** 

c*  2  =  two  standard  deviations  from  average                     ** 

c*  1  ■  one  standard  deviation  from  average                      ** 

c*  ** 

c*  First,  the  program  calculates  the  value  of  b.  This  is  the  num-  ** 

c*  ber  of  spaces  needed  to  represent  one  standard  deviation,     ** 

c*  less  one  space  which  is  used  by  the  character  1,  2,  or  3.     ** 

c*  Next  the  program  determines  which  is  the  smallest  positive    ** 

c*  lower  limit,  and  bm  is  calculated.   Because  of  the  rounding   ** 

c*  done,  bm  could  be  negative.   If  this  is  the  case,  the  limits   ** 

c*  will  not  be  plotted  correctly,  so  the  next  highest  lower  lim-  ** 

c*  it  will  be  used  and  bm  calculated  for  this  limit.             ** 
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c*  Next,    the  highest  upper   limit   that   is  within  the   chart   range     ** 

c*  is   determined.     The   chart    range   is   from  0  to  vmax,   where   vmax  ** 

c*  is   the  highest   individual  unit   value.     Once   this   is   determin-  ** 

c*  ed,    bl  is   calculated.     Again,    due  to  rounding,    bl  could  have     ** 

c*  a   negative   value.      If    this    is   the   case,   make  an  adjustment   by   ** 

c*  decreasing  bm  by   bl  and  setting  bl  equal  to  zero.      If   this          ** 

c*  adjustment   is   very  large,    it   could  cause  bm  to  be   negative.       ** 

c*  If   this   happens,   move   on  two  use  the  next  highest   lower  limit.** 

c*  ** 

c*  When  all  the  correct  scaling  has   been  made,    the   line  showing  ** 

c*  the   limits   is   plotted  according  to  the  particular  format  ** 

c*  required.     This   format    is    indicated  by   the  value  of  wcode.  ** 

c*  Wcode  is  used  to   repeat   the   limit   line  after  the   bar  for  each  ** 

c*  unit  has   been  plotted.  ** 

c*  ** 

c*  ** 

c************************************ 

c *********************************************************************** 

integer  wcode, b,bm,bl,sm 

character  x, blank , dact *40 ,uact *20 ,usm*20 , s 1 , s2 , s3 , sa 

dimension  actot(66),x(75),blank(75),val(66),tacc(66),aacc(66) 

lwrite=0 

sl-'l' 

s2-'2' 

s3«'3' 

sa='A' 

do   10  k=l,75 

x(k)='X' 

blank(k)='    ' 

10  continue 
c 

c     Write  heading  for  chart 

write(3, 900 )iact, dact, ibm,iby,iem,iey 

900  format (lhl,39hR0UTINE  MAINTENANCE  REPORT  FOR  ACTIVITY, lx,i3,2x, 
*       a40,5x,4hFROM,lx,i2,lh-,i2,lx,7hTHROUGH,lx,i2,lh-,i2) 

c 

c     Determine  which  highway  class  the  chart  is  for  and  print 

c       appropriate  heading 

if (iclass.ne.O)go  to  11 

write(3,901) 

901  format (/,lx,10hINTERSTATE,/) 
go  to  13 

11  continue 

if (iclass .ne.l)go  to  12 
write(3,902) 

902  format (/,lx,19h0THER  STATE  HIGHWAY,/) 
go  to  13 

12  continue 
write(3,903) 

903  format(/,lx,24hT0TAL  (INT  +  0SH)  SYSTEM,/) 

13  continue 
c 

c     Write  the  average  and  standard  deviation  values  at  the  top  of 
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c  the   chart 

c  Because  there  are  five  different   charts,    the  subroutine   to  print 

c  the  top   portion  of    the  particular   chart   desired  is    called. 

if (ichart.ne.O)go   to   300 

call  csttop(avg,sd,uact) 

300  continue 

if (ichart.ne.l)go  to  301 
call  hrstop(avg,sd,uact) 

301  continue 
if(ichart.ne.2)go  to  302 
call  tactop(avg,sd,uact) 

302  continue 
if(ichart.ne.3)go  to  303 
call  aactop(avg,sd,uact) 

303  continue 

if (ichart.ne.4)go  to  304 
call  crwtop(avg,sd,uact) 

304  continue 
if(ichart.ne.5)go  to  305 

call  mattop(avg,sd,uact,sm,usm) 

305  continue 
c 

c     Print  line  indicating  position  of  avg,  and  limits  +/-  1,2,3  sd. 

c       Before  printing,  need  to  know  if  any  limits  are  outside  the 

c       range  of  0  to  vmax. 

c     Check  lower  limits  (am3 , am2 , ami ) .   for  each  lower  limit 

c      condition,  there  are  four  upper  limit   (apl,ap2,ap3)  conditions. 

b-nint((sd/vmax)*75.)-l 

if(am3.1t.0)go  to  30 
c 
c  In  this   case,   am3  is  positive.     Check  apl,ap2,ap3. 

bm«nint(((avg-3.*sd)/vmax)*75.)-l 
c 

c  If   bm  is   negative,    the  correct    limit    lines  will  not   be 

c  printed  because   of    the  rounding  adjustments   made, 

c  If  bm  is   negative,   go  to  the  next  highest   lower  limit, 

c  This    check   is   needed  until   the   lower   limit   is    the  average. 

if (bm.lt. 0)go  to  30 
20       if (ap3.gt.vmax)go  to  21 
c 

c  In  this   case,    ap3   is    less    than  vmax  which  is    the   right   end 

c  of   the   chart 

c 
c  wcode=l   indicates    that   the   limits   am3   thorugh  ap3  are   on   the   chart 

wcode=l 

bl-75-bm-7-6*b 
c 

c  Because  of   possible   round  off    errors,    bl  could  be  negative, 

c  Check  for  this.      If   bl   is   negative,    make  an  adjustment   in 

c  bm. 

if(bl.ge.0)go  to  24 

bm"bm  +  bl 

if(bm.lt.0)go   to  30 
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bl-0 

24  continue 
c 

c     Print  line  indicating  limits 

write(3,910)(blank(i),i-l,bm),s3,(blank(i),i-l,b),s2, 

*  (blank(i),i«l,b),sl,(blank(i),i=l,b),sa, 

*  (blank(i),i«l,b),sl,(blank(i),i-l,b),s2, 

*  (blank(i),i«l,b),s3,(blank(i),i-l,bl) 
910  format (lx,lhl,8x,75al,lx,lhl,35x,lhl) 

go  to  100 

21  continue 
c 

c  Check  if  ap2  is  within  chart   limits 

if (ap2.gt.vmax)go  to  22 
c 

c  In  this   case,    ap3   is   not  within  chart   limit    (vmax),    but   ap2   is. 

c 
c  wcode-2  indicates    that   am3  through  ap2  are  within  chart   limits 

wcode»2 

bl-75-bm-6-5*b 

if(bl.ge.0)go  to  25 

bm"bm  +  bl 

if(bm.lt. 0)go  to  30 

bl-0 

25  continue 
write(3,910)(blank(i),l-l,bm),s3,(blank(i),i-l,b),s2, 

*  (blank(i),i«l,b),sl,(blank(i),i=-l,b),sa, 

*  (blank(i),i=-l,b),sl,(blank(i),i=>l,b),s2, 

*  (blank (i),i-l,bl) 
go  to  100 

22  continue 

if (apl .gt.vmax)go   to  23 
c 

c  In  this    case,    apl   is    the   largest   limit  within  chart   limit    (vmax). 

c 
c  wcode™3  indicates   that   am3  thorough  apl   are  within  chart   limits 

wcode«3 

bl-75-bm-5-4*b 

if(bl.ge.0)go  to  26 

bm«bm  +  bl 

if(bm.lt.0)go  to  30 

bl»0 

26  continue 
write(3,910)(blank(i),i=-l,bm),s3,(blank(i),i-l,b),s2, 

*  (blank(i),i-l,b),sl,(blank(i),i=-l,b),sa, 

*  (blank(i),i»l,b),sl,(blank(i),i-l,bl) 
go  to   100 

23  continue 
c 

c  In  this   case,    apl    is   beyond  vmax 

c 

c  wcode"4  indicates    that   am3   through  average  are  within  chart   limits 

wcode-4 
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bl=75-bm-4-3*b 
if (bl.ge.O)go  to  27 
bm™bm  +  bl 
if (bm.lt. 0)go  to  30 
bl=*0 
27   continue 

write(3,910)(blank(i),i=l,bm),s3,(blank(i),i=«l,b),s2, 

*  (blank(i),i=l,b),sl,(blank(i),i-l,b),sa, 

*  (blank (i),i=l,bl) 
go  to  100 

30  continue 
c 

c  In  this   case,    am3   is    less    than  zero,    check  am2. 

if (am2.lt. 0.)go  to  40 
c 
c  In  this   case,    the  lower   limit   is   am2;    check  apl,ap2,ap3. 

bm»nint ( ( (avg-2 . *sd ) /vmax)*75 . )-l 

if(bm.lt.0)go  to  40 

34  if (ap3.gt.vmax)go  to  31 
c 

c  Limits  within  chart   are  am2   through  ap3 

wcode™5 

bl-75-bm-6-5*b 
if(bl.ge.0)go  to  35 
bm"bm  +  bl 
if(bm.lt.0)go  to  40 
bl-0 

35  continue 
write(3,910)(blank(i),i=l,bm),s2,(blank(i),i=l,b),sl, 

*  (blank(i),i»l,b),sa,(blank(i),i=l,b),sl, 

*  (blank(l),i=l,b),s2,(blank(i),i-l,b),s3, 

*  .  (blank(i),i-l,bl) 
go  to   100 

31  if (ap2.gt.vmax)go  to  32 
c 

c  Limits  within  chart   are  am2   through  ap2 

wcode~6 

bl-75-bm-5-4*b 
if(bl.ge.0)go  to  36 
bm"bm+bl 

if (bm.lt. 0)go  to  40 
bl-0 

36  continue 
write(3,910)(blank(i),i-l,bm),s2,(blank(i),i=l,b),sl, 

*  (blank(i),i"l,b),sa,(blank(i),i=l,b),sl, 

*  (blank(i),i-l,b),s2,(blank(i),i=-l,bl) 
go  to  100 

32  if (apl.gt.vmax)go  to  33 
c 

c  Limits  within  chart   are  am2   through  apl 

wcode™7 

bl-75-bm-4-3*b 
if(bl.ge.0)go  to  37 
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bm=bm  +  bl 
if (bm.lt. 0)go  to  40 
bl=0 
37   continue 

write(3,910)(blank(i),i=«l,bm),s2,(blank(i),i=l,b),sl, 

*  (blank(i),i=l,b),sa,(blank(i),i=l,b),sl, 

*  (blank(i),i=l,bl) 
go  to  100 

c 

c  Limits  within  chart   are  am2   through  average 

33       wcode=8 

bl-75-bm-3-2*b 
if(bl.ge.0)go  to  38 
bm=bm  +  bl 
if(bm.lt.0)go  to  40 
bl-0 
38 .      continue 

write(3,910)(blank(i),i=l,bm),s2,(blank(i),i=l,b),sl, 

*  (blank(i),i=l,b),sa,(blank(i),i=l,bl) 
go  to   100 

40  continue 

if (aml.lt.O.)go  to  50 
bm«nint( ( (avg-sd)/vmax)*75. )-l 
if (bm.lt. 0)go  to  50 

44  if (ap3.gt.vmax)go  to  41 
c 

c  Limits  within  chart   are  ami   through  ap3 

wcode=9 

bl»75-bm-5-4*b 
if(bl.ge.0)go  to  45 
bm™bm+bl 

if(bm.lt.0)go  to  50 
bl-0 

45  continue 
write(3,910)(blank(i),i=l,bm),sl,(blank(i),i=l,b),sa, 

*  (blank(i),i=l,b),sl,(blank(i),i=l,b),s2, 

*  (blank(i),i=l,b),s3,(blank(i),i=l,bl) 
go  to  100 

41  continue 

if (ap2.gt.vmax)go  to  42 
c 
c     Limits  within  chart  are  ami  through  ap2 

wcode=10 

bl-75-bm-4-3*b 

if(bl.ge.0)go  to  46 

bm=»bm+bl 

if (bm.lt. 0)go  to  50 

bl-0 

46  continue 
write(3,910)(blank(i),i=l,bm),sl,(blank(i),i=l,b),sa, 

*  (blank(i),i=l,b),sl,(blank(i),i=l,b),s2, 

*  (blank (i),i=l,bl) 
go  to  100 
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42  continue 

if (apl.gt.vmax)go   to  43 
c 
c  Limits  within  chart   are  ami   through  apl 

wcode=ll 

bl-75-bm-3-2*b 

if(bl.ge.0)go  to  47 

bm»bm+bl 

if(bm.lt.0)go  to  50 

bl-0 

47  continue 
write(3,910)(blank(i),i=*l,bm),sl,(blank(i),i=»l,b),sa, 

*  (blank(i),i-l,b),sl,(blank(i),i-l,bl) 
go  to   100 

43  continue 
c 

c  Limits  within  chart   are  ami   through  average 

wcode™12 
bl-75-bm-2-b 
if(bl.ge.0)go  to  48 
bm=bm+bl 

if (bm.lt. 0)go  to   50 
bl-0 

48  continue 
write(3,910)(blank(i),i-l,bm),sl,(blank(i),l«l,b),sa, 

*  (blank(i),i-l,bl) 
go  to  100 

50  continue 
bm«mint((avg/vmax)*75. )-l 

54  if (ap3.gt.vmax)go  to  51 
c 

c  Limits  within  chart   are  average  through  ap3 

wcode-13 
bl«75-bm-4-3*b 
if(bl.ge.0)go  to  55 
bm^bm+bl 
bl=0 

55  continue 
write(3,910)(blank(i),i-l,bm),8a,(blank(i),i='l,b),sl, 

*  (blank(i),i-l,b),s2,(blank(i),i='l,b),s3, 

*  (blank(i),i-l,bl) 
go  to  100 

51  continue 

if (ap2.gt.vmax)go   to  52 
c 
c  Limits  within  chart  are  average  through  ap2 

wcode=,14 

bl-75-bm-3-2*b 

if(bl.ge.0)go  to  56 

bm=bnri"bl 

bl-0 

56  continue 
write(3,910)(blank(i),i=l,bm),sa,(blank(i),i-l,b),sl, 


260 


*  (blank(i),i=l,b),s2,(blank(i),i-l,bl) 
go  to   100 

52  continue 

if (apl.gt.vmax)go  to   53 
c 
c  Limits  within  chart   are  average  through  apl 

wcode=15 

bl=75-bm-2-b 

if(bl.ge.0)go  to  57 

bm=bm+bl 

bl=0 

57  continue 
write(3,910)(blank(i),i=»l,bm),sa,(blank(i),i="l,b),sl, 

*  (blank(i),i-l,bl) 
go  to   100 

53  continue 
c 

c  Only   limit  within  chart   limits    is   average 

wcode=16 
bl=75-bm-l 
if(bl.ge.0)go  to  58 
bm=bm+bl 
bl=0 

58  continue 
write(3,910)(blank(i),i=»l,bm),sa,(blank(i),i«l,bl) 

100     continue 

if (lwrite.eq.l)go  to  200 
c 

c  Print   bar  for  each  unit.     Because  the  format  for  each  of   the 

c  charts    is   slightly   different,    a  particular  subroutine  will 

c  print   the  bars   and  data  for  each  chart.     Note  that   labor 

c  hours  and  crew  size  use  the  same  format   and  subroutine, 

if (ichart.ne.O)go  to   110 

call  bares t(vmax,x, blank, actot,val,tacc,aacc) 
110     continue 

if (ichart.ne.l)go  to   120 

call  barhrs(vmax,x, blank, val,actot,tacc,aacc) 
120     continue 

if (ichart.ne.2)go  to   130 

call  bartac(vmax,x, blank, tacc,aacc,val, act ot) 
130  continue 

if (ichart.ne.3)go  to  140 

call  baraac(vmax,x, blank, aacc.tacc.val, act ot) 
140     continue 

if (ichart.ne.4)go  to   150 

call  barhrs(vmax,x, blank, val,actot,tacc,aacc) 
150     continue 

if (ichart.ne.5)go   to    160 

call  barhrs(vmax,x, blank, val,actot,tacc,aacc) 
160     continue 
lwrite=l 
c 
c  Print    limits   along  bottom. 


261 


if (wcode.eq.l)go  to  20 

if (wcode.eq.2)go  to  21 

if (wcode.eq.3)go  to  22 

if (wcode.eq.4)go  to  23 

if (wcode.eq.5)go  to  34 

if (wcode.eq.6)go  to  31 

if (wcode.eq.7)go  to  32 

if (wcode.eq.8)go  to  33 

if (wcode.eq.9)go  to  44 

if (wcode.eq.lO)go  to  41 

if (wcode.eq.ll)go  to  42 

if (wcode.eq.l2)go  to  43 

if (wcode.eq,13)go  to  54 

if (wcode.eq.l4)go  to  51 

if (wcode.eq.l5)go  to  52 

if (wcode.eq.l6)go  to  53 
200  continue 
c 
c     Print  bottom  border  of  chart 

write(3,912) 

912  format (lx, 122 (lh-)) 
c 

c  Print   explanation  of   symbols 

write(3,913) 

913  format (/,10x,12hA  —  Average,/, 

*  10x,40hl  —  One  Standard  Deviation  From  Average,/, 

*  10x,41h2  —  Two  Standard  Deviations  From  Average,/, 

*  10x,43h3  —  Three  Standard  Deviations  From  Average) 
return 

end 

subroutine  csttop(avg,sd,uact) 
c*********************************************************************** 
c ******************************************************************** 
c*  ** 

c*    CSTTOP  ** 

c*  ** 

c*         This  subroutine  prints   the  top   lines   of    the  bar  chart   of  aver-     ** 
c*  age   cost.  ** 

c*  ** 

c*********************************************************************** 

c *********************************************************************** 

character  uact*20 
c 

c  Write  the  average  and  standard  deviation  values  at   the  top  of 

c  the  chart 

write(3 , 900 )avg ,uact , sd,uact 

900  format (lx,13hAverage  Cost-,7x,f7.2,2x,llhDollars  per,lx,a20,/,lx, 

*  19hStandard  Deviation-, lx.f 7. 2, 2x,llhDollars  per,lx,a20,//) 
c 

c  Print  top  border  of   chart 

write(3,901) 

901  format (lx, 122 (lh-)) 
c 
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c     Print  chart  headings 
write(3,902) 

902  format ( lx, lhl ,84x, lhl , lx, 7hAVERAGE ,3x, 4hCREW,4x, 

*  14hACC0MPLISHMENT,2x,lhI) 
write(3,903)uact 

903  format(lx,lhI,lx,4hUNIT,10x, 

*  39hChart  Shows  Average  Cost  in  Dollars  per, 

*  lx,a20,9x,lhI,2x,4hCOST,5x,4hDAYS,4x,5hTOTAL,3x,7hAVERAGE, 

*  lx,lhl,/,lx,lhl,lx,4h ,3x,76(lh-),lhl,lx,7(lh-),2x,6(lh-), 

*  2x,8(lh-),lx,7(lh-),lx,lhl) 
return 

end 

subroutine  hrstop(avg,sd,uact) 
c*********************************************************************** 
c *********************************************************************** 
c*  ** 

c*         HRSTOP  ** 

c*  ** 

c*         This   subroutine  prints    the  top  part   of   the  bar  chart   of  average   ** 
c*  labor  hours  per  accomplishment  unit.  ** 

c*  ** 

c*********************************************************************** 
c*********************************************************************** 

character  uact*20 

writ e( 3 , 900 )avg , uact , sd , uact 

900  format (lx,37hAverage  Labor  Hours  (Reg  +  Overtime )=,2x,f 6.2,2x, 

*  9hHours  per,lx,a20,/,lx, 

*  19hStandard  Deviation=,20x,f 6.2,2x,9hHours  per,lx,a20,//) 
write(3,901) 

901  format (lx, 122 (lh-)) 
write(3,902) 

902  format(lx,lhl,84x,lhI,lx,6hH0URS/,2x,7hAVERAGE,3x, 

*  14hACC0MPLISHMENT,2x,lhI) 
write(3,903)uact 

903  format(lx,lhI,lx,4hUNIT,5x, 

*  52hChart  Shows  Average  Labor  Hours  (Reg  +  Overtime)  per, 

*  lx,a20,lx,lhI,lx,6hACC0MP,3x,4hC0ST,5x,5hTOTAL,3x, 

*  7hAVERAGE,lx,lhI,/,lx,lhI,lx,4h ,3x,76(lh-) ,lhl, 

*  lx,6(lh-),2x,7(lh-),2x,8(lh-),lx,7(lh-),lx,lhl) 
return 

end 

subroutine  tactop(avg,sd,uact) 
c*********************************************************************** 
c*********************************************************************** 

c*  ** 

c*    TACTOP  ** 

c*  ** 

c*         This   subroutine  prints    the   top   lines    of    the   bar   chart   of   total     ** 
c*  accomplishment.  ** 

c*  ** 

c*********************************************************************** 
c*********************************************************************** 

character  uact*20 
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write(3,900)avg,uact,sd,uact 

900  format (lx,29hAverage  Total  Accomplishment-, lx,f 8.1, 2x,a20,/,lx, 

*  19hStandard  Deviation-, 13x,f 6. I,2x,a20,//) 
write(3,901) 

901  format (lx,122(lh-)) 
write(3,902) 

902  format (lx,lhI,84x,lhI,2x,14hACC0MPLISHMENT,4x,4hCREW,3x, 

*  7hAVERAGE,lx,lhI) 
wrlte(3,903)uact 

903  format( lx,lhI,lx,4hUNIT,12x, 

*  35hChart  Shows  Total  Accomplishment  in,lx,a20,llx,lhl,2x, 

*  5hT0TAL,3x,7hAVERAGE,3x,4hDAYS,4x,4hC0ST,3x,lhI,/, 

*  lx,lhl,lx,4h ,3x,76(lh-),lhl,lx,8(lh-),lx,7(lh-),2x, 

*  6(lh-),2x,7(lh-),lx,lhl) 
return 

end 

subroutine  aactop(avg,sd,uact) 
c*********************************************************************** 
c *********************************************************************** 
c*  ** 

c*       AACT0P  ** 

c*  ** 

c*       This  subroutine  prints   the  top  part   of   the  bar  chart  of  average     ** 
c*  daily  accomplishment.  ** 

c*  ** 

c*********************************************************************** 
c *********************************************************************** 

character  uact*20 

write(3,900)avg,uact,sd,uact 

900  format (lx,29hAverage  Daily  Accomplishment-, lx.f 8.1, 2x,a20,/,lx, 

*  19hStandard  Deviation-, 13x, f6. 1 ,2x,a20,//) 
write(3,901) 

901  format(lx,122(lh-)) 
write(3,902) 

902  format(lx,lhI,84x,lhl,2x,14hACC0MPLISHMENT,4x,4hCREW,3x, 

*  7hAVERAGE,lx,lhI) 
write(3,903)uact 

903  format (lx,lhI,lx,4hUNIT,8x, 

*  43hChart  Shows  Average  Daily  Accomplishment  in,lx,a20,7x,lhl, 

*  lx,7hAVERAGE,3x,5hT0TAL,4x,4hDAYS,4x,4hC0ST,3x,lhI,/,lx,lhI,lx, 

*  4h ,3x,76(lh-),lhl,lx,7(lh-),lx,8(lh-),2x,6(lh-),2x,7(lh-), 

*  lx.lhl) 
return 
end 

subroutine  crwtop(avg,sd,uact) 
c*********************************************************************** 
c *********************************************************************** 
c*  ** 

c*    CRWT0P  ** 

c*  ** 

c*         This  subroutine  prints   the  top  part  of   the  bar  chart   of  average  ** 
c*  crew  size.  ** 

c*  ** 
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c*********************************************************************** 

c *********************************************************************** 

character  uact*20 
write(3,900)avg,sd 

900  format (lx,18hAverage  Crew  Size=,2x,f7.2,2x,7hPersons,/,lx, 

*  19hStandard  Deviation-, lx,f7. 2, 2x,7hPersons,//) 
write(3,901) 

901  format (lx,122(lh-)) 
write(3,902) 

902  format (lx,lhI,84x,lhI,2x,4hCREW,3x,7hAVERAGE,3x, 

*  14hACC0MPLISHMENT,2x,lhI) 
write(3,903) 

903  format(lx,lhI,lx,4hUNIT,9x, 

*  40hChart  Shows  Average  Crew  Size  in  Persons, 21x,9x,lhl,2x, 

*  4hSIZE,4x,4hC0ST,5x,5hT0TAL,3x,7hAVERAGE,lx,lhI,/,lx,lhI,lx, 

*  4h ,3x,76(lh-),lhl,lx,6(lh-),2x,7(lh-),2x,8(lh-),lx,7(lh-), 

*  lx.lhl) 
return 
end 

subroutine  mattop(avg,sd,uact,sm,usm) 
c*********************************************************************** 
c *********************************************************************** 
c*  ** 

c*    MATTOP  ** 

c*  ** 

c*    This  subroutine  prints  the  top  part  of  the  bar  chart  of  average  ** 
c*     material  quantity  per  accomplishment  unit.  ** 

c*  ** 

c*********************************************************************** 
c *********************************************************************** 

character  uact*20,usm*20 

integer  sm 

writ  e ( 3 , 900 ) sm, avg , usm, uact , sd , usm, uact 

900  format (lx,28hAverage  Quantity  of  Material, lx,i4,lh=,f 7.2, lx,a20, 

*  lx,3hper,lx,a20,/,lx,19hStandard  Deviation-, 15x,f7. 2, lx, 

*  a20,lx,3hper,lx,a20,//) 
write(3,901) 

901  format(lx,122(lh-)) 
write(3,902) 

902  format (lx,lhI,84x,lhI,lx,5hQUAN/, 

*  3x,7hAVERAGE,3x,14hACC0MPLISHMENT,2x,lhI) 
write(3,903)sm 

903  format(lx,lhI,lx,4hUNIT,3x, 

*  40hChart  Shows  Average  Quantity  of  Material, lx, 

*  i4,lx,3hper,lx,19hAccomplishment  Unit,7x,lhI,lx,6hACC0MP, 

*  3x,4hCOST,5x,5hTOTAL,3x,7hAVERAGE,lx,lhI,/,lx,lhI,lx, 

*  4h ,3x,76(lh-),lhl,lx,6(lh-),2x,7(lh-),2x,8(lh-),lx,7(lh-), 

*  lx.lhl) 
return 
end 

subroutine  bares t ( vmax, x, blank, act ot , lace , tacc , aacc ) 
c*********************************************************************** 
c *********************************************************************** 
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c*  ** 

c*    BARCST  ** 

c*  ** 

c*  This  subroutine  will  print  the  bar  and  values  of  average  cost,  ** 
c*  number  of  crew  days,  total  and  average  accomplishment.  ** 
c*  ** 

c *********************************************************************** 

dimension  x(75),blank(75),actot(66),lacc(66),tacc(66),aacc(66) 

character  x,  blank 
c 
c  Print  bar  for  each  unit 

jl-11 

J2-16 

110  do  111   j=jl,j2 
ibar-nint((actot(j)/vmax)*75) 
iblank=75-ibar 

write(3,911)j,(x(i),i=l,ibar),(blank(i),i=l,iblank),actot(j), 

*  lacc(j),tacc(j),aacc(j) 

911     format(lx,lhl,lx,i2,2h00,3x,75al,lx,lhl,lx,f7.2,2x,i6,2x, 

*  f8.1,2x,f6.1,lx,lhl) 

111  continue 
if(jl.eq.ll)go  to  120 
if(jl.eq.21)go  to  130 
if(jl.eq.31)go  to  140 
if(jl.eq.41)go  to  150 
if(jl.eq.51)go  to  160 
if(jl.eq.61)go  to   170 

120      jl-21 
J2-26 
go  to   110 
130     jl-31 
J2-36 
go  to  110 
140     jl-41 
J2-47 
go  to   110 
150     jl-51 
J2-56 
go  to   110 
160     jl=61 
J2-66 
go  to   110 
170     continue 
return 
end 

subroutine  barhrs ( vmax,  x, blank , val , act ot , tacc , aacc ) 
c*********************************************************************** 
c *********************************************************************** 
c*  ** 

c*  BARHRS  ** 

c*  ** 

c*         This  subroutine  will  print   the  bar  and  values   of   labor  hours,        ** 
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c*  average   cost,    total  and  average  accomplishment.  ** 

c*  It  also  prints   the  bars  for  the  average   crew  size  chart.  ** 

c*  ** 

dimension  x(75),blank(75),actot(66),val(66),tacc(66),aacc(66) 
character  x, blank 
c  Print   bar  for  each  unit 

jl-11 
J2-16 

110  do  111   j-jl,j2 
ibar=nint((val(j)/vmax)*75) 
iblank=75-ibar 

write(3,911)j,(x(i),i-l,ibar),(blank(i),i-l,iblank),val(j), 

*  actot(j),tacc(j),aacc(j) 

911     format(lx,lhl,lx,i2,2h00,3x,75al,lx,lhl,lx,f6.2,2x,f7.2,2x, 

*  f8.1,2x,f6.1,lx,lhl) 

111  continue 
if(jl.eq.ll)go  to  120 
if(jl.eq.21)go  to  130 
if(jl.eq.31)go  to  140 
if(jl.eq.41)go  to  150 
if(jl.eq.51)go  to  160 
if(jl.eq.61)go  to  170 

120   jl-21 

J2-26 

go  to  110 
130  jl-31 

J2-36 

go  to  110 
140  jl-4i 

J2-47 

go  to  110 
150   jl-51 

J2-56 

go  to  110 
160   jl-61 

J2-66 

go  to  110 
170  continue 

return 

end 

subroutine  bartac (vmax, x, blank, tacc , aacc , lace , actot ) 

c*  ** 

c*  BARTAC                                                     ** 

c*  ** 

c*  This  subroutine  will  print  the  bar  and  values  of  total  accomp-  ** 

c*  lishment,  average  accomplishment,  number  of  crew  days,  and    ** 

c*  average  cost.                                           ** 

c*  ** 
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c*********************************************************************** 

dimension  x(75),blank(75),actot(66),lacc(66),tacc(66),aacc(66) 
character  x, blank 
c  Print  bar  for  each  unit 

jl-11 
J2-16 

110  do  111    j-jl, j2 

ibar-nint ( (tacc( j )/vmax)*75) 
iblank-75-ibar 

write(3,911)j,(x(i),i-l,ibar),(blank(i),i-l,iblank),tacc(j), 

*  aacc(j),lacc(j),actot(j) 

911  format(lx,lhl,lx,i2,2h00,3x,75al,lx,lhl,lx,f8.1,2x,f6.1,2x, 

*  i6,2x,f7.2,lx,lhl) 

111  continue 
lf(jl.eq.ll)go  to  120 
if(jl.eq.21)go  to  130 
if(jl.eq.31)go  to  140 
if(jl.eq.41)go  to  150 
if(jl.eq.51)go  to  160 
if(jl.eq.61)go  to  170 

120  jl-21 

J2-26 

go  to  110 
130  jl-31 

J2-36 

go  to  110 
140  jl-4l 

J2-47 

go  to  110 
150  jl=»51 

J2-56 

go  to  110 
160  jl-61 

J2-66 

go  to  110 
170  continue 

return 

end 

subroutine  baraac(vmax,x, blank, aacc,tacc, lace ,actot) 

c *********************************************************************** 
c*  ** 

c*         BARAAC  ** 

c*  ** 

c*         This  subroutine  will  print  the  bar  for  average  accomplishment,      ** 
c*  and  values   of  average  and  total  accomplishment,    number  of  ** 

c*  crew  days,   and  average  cost.  ** 

c*  ** 

C*********************************************************AAA«*AAAAAAAAA 
c*********************************************************************** 

dimension  x(75),blank(75),actot(66),lacc(66),tacc(66),aacc(66) 
character  x, blank 

c 
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c  Print   bar  for  each  unit 

jl-11 
J2-16 

110  do   111    J-J1.J2 

ibar=Tiint  (  (aacc  (  j  ) /vmax  )*7  5 ) 
iblank-75-ibar 

wrlte(3,911)j,(x(i),i-l,ibar),(blank(i),i-l,iblank),aacc(j), 

*  tacc(j),lacc(j),actot(j) 

911  format(lx,lhl,lx,i2,2h00,3x,75al,lx,lhl,2x,f6.1,lx,f8.1,2x, 

*  I6,2x,f7.2,lx,lhl) 

111  continue 

if (jl.eq.ll)go  to  120 

if(jl.eq.21)go  to  130 

if(jl.eq.31)go  to  140 

if(jl.eq.41)go  to  150 

if(jl.eq.51)go  to  160 

if(jl.eq.61)go  to  170 
120  jl-21 

J2-26 

go  to  110 
130  jl-31 

j2=36 

go  to-  110 
140  jl-41 

J2-47 

go  to  110 
150  jl-51 

J2-56 

go  to  110 
160  jl-61 

J2-66 

go  to  110 
170  continue 

return 

end 


